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LIMITED COPYRIGHT WAIVER J 

A portion of the disclosure; of this; patent document 
contains material to which: the claim of ;copyright 
protection is made. The copyright : owner ■ has no 
objection to the facsimile reproduction by any .person of 
the patent document or the patent disclosure, as it 
appears in the U.S. Patent and Trademark Of f ice ; file or 
records, but reserves all other rights whatsoever. 

i 

BACKGROUND 
1 . Field of the Invention 

The invention relates to the loading of software 
into memory for execution by a computer system, and more 
particularly, to techniques and file formats which 
facilitate the same. 



2 . Description of Related Art ! 

Computer programs are typically written! originally 
25 , in source code in a computer : language ' such, as C or 
Pascal, or in an assembly language. To prepare the 
i program for execution on a computer system; 'one lor more 
source code modules are passed through' a compiler (or 
, assembler) which is specific ; to the language used and 
30 | the computer system on which; it will: be; : executed, and 
j which generates an. object code file as: its, output. A 
I linker routine, which is either a separate program; or is 
j part of, the compiler, combines them into! a single output 
! file; known as an "executable", object 'code file. 1 One or 
35 , more executables are then loaded together into memory by 
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i a i loader program, 'and control is transferred to a start 
address to initiate program execution. 

An executable object code file typically includes, 
among other things, a header section which contains 
5 information about the structure of the file; one or more 
code sections which contains binary instructions which 
are directly executable by the system's CPU; one or more 
data jsections; and a loader section, the contents of 
which! are described below. 

10 . : A! data section typically contains data which was 

initialized by the compiler in response to the source 
code, descriptors describing various procedure : pointers , 
as well as several other types of pointers . The various 
pointers which are contained in the data section may 

15 include some which refer to the address in memory of 
other data objects or of specific computer instructions. 
For example, a pointer may refer to specific objects in 
a code section, such as the entry point of a procedure. 
Other pointers in the data section may contain the 

2 0 addresses of other objects in the same data section. 

(As used herein, an. address may be real or^ virtual, 

depending, on the computer system used) . Further, in 

systems where programs may be compiled into two or more 

executable files and subsequently loaded together, a 

25 i data section jin one file may contain pointers to objects 
i . ! j 

in 1 a code or > data section of another file. j i 

i ; ■Alii of these references to absolute addresses must 

be; '^relocatable" since at the time of compilation and 

linking, the i compiler /linker has no way of 1 knowing what 

30 will! be the ultimate! addresses in memory at which the 

various referenced objects will be loaded. I Thus 

references : in an executable object code : file to , an 

address in; a! code section are often represented in a 
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form which is merely relative to the start of the code 
section, ancU references to an object in a data section 
are .represented in a form which is merely relative to 
the starting address of the data section. The loader 
program is then able to perform a relocation of these 
references by, after a referenced section is loaded into 
memory and the start address of that section is known, 
merely adding that start address to all of the 
references to objects within : that section. , 

References to external symbols ; are ,typically 
I represented in an executable object code file as indices 
.[ into a symbol import/export ; table which is also 
. i contained in the file, each import entry in jthe import/ 
' export , table identifying both : the name of one of the 
15 symbols and the external file which should contain that 
symbol. The indices are of ten ; numbered consecutively , 
and as will be seen below,! the table also; contains 
export entries. When the loader program encounters a 
, , reference to an external symbol, it loads the; external 
20. I file and determines the address of the j referenced 
| symbol. ,The loader program then relocates; the reference, 
; by adding in the address of the. referenced symbol,. 

In order to determine the address of; an. import 
symbol, the loader searches for the symbol , <■ usually by 
25 name, among the exports in the symbol import/export 
table of the external file. : The . entry which contains 
the desired export also designates the address of the 
symbol by designating the section number of the external 
file containing the symbol, and an offset^ into that 
30 section. 

The loader section of an executable object, code file 
typically includes a relocation table containing entries 
which specify how each relocatable reference is to be 
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relocated upon loading into memory. For example, for a 
relocatable -reference to an object which is within a 
code section, the relocation table contains a 
specification that the number to be added to the 
5 reference is the start address of the code section, 
rather than the start address of some other section. 
Similarly, for a relocatable reference to an object 
which is contained within a data section, the relocation 
table contains an entry specifying that the number to be 
10 added to the relocatable reference is the start address 
of ,thei data section rather than of a code section. For 
i a relocatable reference 1 to ah external symbol, the 
; relocation ^table contains a corresponding specification 
of the' index i to the desired entry in the symbol import 

15 table. I ■ ■ ■ 

: When the loader program begins operation, it 
retrieves the desired executable object code file from 
a mass storage device such as a disk. If the 1 computer 
system permits multiple tasks to be ! resident 

20 simultaneously using a shared object code section, then 
a separate copy of the data: section (s) is ( are )i made for 
each' tdask: which will use the loaded file. ; In one 
example of ! memory organization, the loader may first 
check whether the desired : file is already present in 

25 memory! for another task. If not, the loader loads the 
header, code, data and loader sections of the file into 
a portion of memory which is read-only to individual 
users. . In either case, the loader then makes a copy of 
the data section (s) in read/write memory for the new 

3 0 task. 

; If the loader has been invoked to load several files 
or modules ! into memory at the same time, then these 
files, itoo, are loaded into memory in the same manner as 
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the first file. All the references to external symbols 
are resolved* at this time, by. inserting into each file's 
symbol import table the address into which ; each symbol 
has been loaded. Symbol • imports may be resolved 
5 i recursively. That is, when one module (e.g. an 
application program) references a symbol in a second 
module (e.g. a library) , the loader may ! loadi and perform 
all relocations on the second module before returning to 
resolve the symbol in the first module. Similarly, if 

10 i the second module references a symbol' in a third module, 
the : loader may load and perform all relocations in the 
third module before returning to the second, and 'so on. 

After the various sections of file have been loaded 
into memory, and imports have been resolved, the loader 

15 performs the relocation process . The relocation process 
is performed by traversing the relocation table in the 
loader section, and performing the specified relocation 
operation for each of the relocatable references 
contained within the current file. 

20 One popular format for executable object code files 

is known as XCOFF. XCOFF is described in the following;, 
articles published in IBM, "R6000 Inf oExplorer " (CD-ROM, 
1992) : 

"a. out File Format", 

25 "Optional Auxiliary Header for the a. out File", 

"Section Headers for the a. out File", 
"Raw Data Sections for the a. out File", 
"Special Data Sections for the a. out File.*' , 
."Relocation Information for the a. out File"', 

30 "xcoff.h", 

"filehdr.h", 
"reloc.h", 

"scnhdr.h", 1 1 

" loader. h"; I 1 ' 

35 1 : ' ! ' 

■all incorporated herein by reference. In XCOFF, the 

loader section has the following portions: 
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Header Portion 

External Symbol Import/Export Table j 
Relocation Table 11 j 

Import File Ids 
| Loader String Table. 

! i ' ; 

The Header Portion of the Loader Section contains a 
version number and sufficient information to navigate 
the remainder of the Loader Section. i 

The External Symbol Import/Export Table contains one 
24 -byte entry for each of the external references for 
the file. The entries are unsorted, with no grouping of 
imports separately from exports, and no grouping of 
imports from one external file separate from imports 
from ajnother ( external file. Each entry in the External 
Symbol Import/Export Table has the following fields: 

' ' ' ! TABLE I , 



Field 



Name 



( lj_name , 

: i M '■ 

i 

1 'value 



, 1 - s cnum 



l_smtype 



Length 
Bytes 

8 



i i 



smclas 
ifile 



1 
4 



| Description . 

I , i . i : 1 1 I j 

■Full symbol name (if 'as, 8jbytes)j,! 
lor offset to full symbol |name in 
I the Loader String Table, j j 

i Offset into 1-scnum where export 
symbol is located; unused if 
\ import . 

| Section; number containing the 
export symbol, or 0 if import or 
| not defined. I 'i : j 

'Symbol type, and flags j j 
indicating whether the symbol is 
an import, export, and/ or entry, 

i point description. . j j 

Symbol storage class. ' 

Import file id: ordinal of ; 
import file Ids in Loader Import 
File Ids portion. Specifies 
source for import symbols . 
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Length 
Field. Name : Bytes 

l__parm 4 

'The' Relocation 
information for the 
Relocation Table is 
following fields: 



Pes cript ion 



Parameter 1 type check if i el cl 



Table 
XCOFF 



contains ■ 



I ! 

the 



relocations 



file. Each entry, in the 
12 bytes long \ and contains the 



Field Name 
1 vaddr 



l_symndx 

l_rtype 
1 rsecnm. 



Length 
(Bytes) 



TABLE II 

Description 

4 Offset within section number 

specified, in l_rsecnm, of an 
information item to be 
relocated. 

4 External symbol import table 

index of object that is being 
referenced. , , 

2 Type of relocation.; . 

2 Number of the section i 

containing the , relocatable 
item governed by this table 
entry. : i ; I ■ 



The l_symndx field of a relocation table entry 
specifies whether the item to be ! relocated is a 
reference to an external symbol, or to an oljject in one 
of the code or data sections: Specifically., 



1 and 2 indicate that the reference is to an 
a .data or .b'ss section ' respectively '(both of 



values of 

object in 

i 

which are 



considered "data sections" as 1 the term is ; used herein) , 
and a value of 0 indicates that the reference 1 is! to an 
object in a .text section (code) . Values' of j 3 I or higher 
constitute indices : into the external symbol ' import table 
for ! the file, and indicate 1 that ! t:he [relocatable 
reference in the information item is a reference to the 
corresponding external symbol. In this' case, the 



WO 94/22078 



PC1YUS94/02952 



8 - 



10 



15 



20 



25 



30 



relocatable reference in the information item itself may 

i 1 
contain 0,. or an offset value to which the address j of 

' j . ■ ! i ; ! 

the j external, symbol , will be added. Note that while 
relocation , table entries have the capacity to control 

relocations of information items contained in: the code 

, i i ■ I ' : : I i ! : • ; • 1 ; ! ' 

section, this capacity is rarely used , on j computer 

i ! I I : 1 1 : i 1 ! 

systems which support relative branching. For these 

systems, when a compiler generates a branch instruction 

for jthle code section', it rypically uses the relative 

branch format so . as to obviate any need for ■ a 

relocation. When the : compiler generates an instruction 

. I I • I : ; I ! I . . ,., I ! 

which references: a: data object, it typically uses ian 

■ j | ! i ! ' I , I I 

indexed addressing imedhanism for which only the offset 

: : ! ' ! 

from : the base address of the data section ■ need be 

! j ■ i ! I ' i ! ^ i 

included in the ultimately executed code. The software 
pre-loads the starting address of the desired data 
section into a register to use as the base 'address. 
Further, in the situation where code sections are 
sharabie, relocations' are avoided in the code section 
also because the relocation appropriate for one task may 
not be, the same as the relocation appropriate for 
another task sharing the same code section. 

The l_rtype field indicates the type of relocation 
which is to be performed, and most commonly contains a 
value indicating that the reference is an absolute 
32 -bit |reference to the virtual address of the object. 

i l ; _rsecnm indicates the section number containing the 

i ' ! ' ' 1 
information ; item to.be relocated. As with the 1 symndx 

■ i i ■ ■ 1 i 1 i ■ : ' ' 1 ~ • I 

field, certain predefined values are implicit references 



to the 

! 

The 



text ,, 



.data |aiid .bss sections, respectively, 



Import File lids .portion of the , XC0FF file 



i H 



contains variable length strings each carrying ; the file 

j I j . : i i ! i ' 1 | 1 

Id for a respective one of the import files referenced 



I ! 
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ordinally in the l_ifile field of an import ; entry in the 
External Symbol Import /Export Table. Similarly, the 
Loader String Table porion of the file contains variable 
length strings, each carrying the text name of a 
5 respective one of the import and expprt symbols 
referenced in the l_name field of an import, or export 
I entry in the External Symbol, Import /Export iTable. 

i | One problem with the XCOFF;file format is | that it is 
j extremely inefficient in terms of space , occupied;, in the 
lo| ■ mass storage device, in terms of memory usage^ at: launch 
| time, and in terms of the time required to i launch an 
I application. The space which an XCOFF file decuples in 
i mass storage is in large part due to the! fact |that XCOFF 
I | requires 12 bytes of relocation information for each 4- 
15; ; byte word in the data section that requires relocation. 
1 Thus in an executable object code file containing 1.5 
: , megabytes, as much as 3 00k bytes might be occupied by 
; the relocation table. The relocation table; space 
1 overhead is also a large factor in the inefficient usage 
2,0j • of memory at launch time. The ineff iciency ! of : launch 
, ! ■ time speed performance is duei in part to jtlie: need to 
I retrieve and interpret 12 bytes for every relocation to 
1 be performed. • '! 1 

■ ■ The inefficiency of the: XCOFF file format is due 

25' also in part to the absence of any organization ■ in the 
External Symbol Import /Export Table. This' means that 
when the loader program needs to import a symbol 
exported by an XCOFF file, it must search through the 
entire External Symbol Import/Export Table : until it is 
30 found. This can amount to hundreds or thousands of 
entries in some programs, which may need to; be searched 
1 hundreds or thousands of times (once ,for each import 
i from the file). Moreover, each search can ; involve a 
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lengthy string comparison of the symbol name of an 
export; in the Table, with the desired symbol import 
name . 

An XCOFF loader program may attempt to speed this 
5 process by reading the entire External Symbol Import/ 
Export Table of an imported XCOFF file into read/write 
memory before performing any comparisons, but this 
. itself ; takes time and requires an extensive amount of 
memory.; Additionally, the entire Loader String Table 
10 ; would also need to be loaded into memory, and in I a 
virtual memory computer system there is a strong 
i likelihood^ that the ! need to repeatedly access the 
! External Symbol Import /Export Table entries I and ■ the 
: Loader String; Table in an alternating manner will cause 
15 . repeated page! faults land further degrade performance. 
Moreover, a typical importing file may need to import 
only ;1Q% of: the symbols exported by the imported file 
i beingj ^eadi into memory in this manner. Thus the vast 
majority of i the eritries in ' the External! Symbol 



20 Import /Export ; Table and the Loader String Table which 
are brought into memory in order to speed import 
' resolution; ;may never ibe used. ! ' 

In addition to XCOFF, another conventional format 

| for executable object code files is used in the GEM disk 

:25 operating system for Atari ST computers. See K. Peel, 
"The ! Concise Atari ST 68000 Programmer's Reference 
Guide" (Glentcp Publishers: 1986), especially pp. 2-21 
through 2-24. The entire Peel guide is incorporated 
herein by reference . 

30 In the GEM format, the loader section of an 

executable object code file consists of a series of 
bytes, each of which specifies at most a single 
relocation. . A loader routine maintains a pointer into 



WO 94/22078 , I PCT/US94/02952 



the' program being loaded, and updates:: the pointer in 
dependence 'upon each byte in th'e I loader j s'ection. 
Specifically, if a byte in the load|er; sectjionj contains 
any number between 2-255 inclusive,) the loader routine 
advances the pointer by the specif ied ! number | of bytes 
and adds the start program: address'* toj the > 32 -bit 

the I pointer. 

i i 

the 1 value 1, 



20 



i i 



! relocatable reference then pointed to by 
; If the ibyte in the loader section contains 
; then the loader routine advances the i pointer by 254 
10 bytes without performing a relocation. A jzero byte in 
the loader section indicates the end of relocations, 
i i The GEM executable object code file ; format and. 

i loader routine are extremely primitive, lacking any 
capability for symbol imports and exports, for separate 
15 code and data sections, or for any kind of relocation 
other than the addition of the start program address to 
a 32 -bit relocatable reference. Additionally, like the 
XCOFF format, the GEM format still contains a relocation 
table entry (byte) for each relocation to be performed. 



SUMMARY OF THE INVENTION 
The invention takes advantage of certain 
j characteristics of executable object code . files to 
drastically reduce the '■ number of bytes of ' relocation 
25! ' information which are required per ; relocation. In 
■■ i i particular, roughly described,: relocation t'able entries 
[ in an executable object code : file iare 1 interpreted as 
relocation instructions < rather than { ^individual ; 
specifications for a particular respective! relocatable 
30 information item.: An abstract machine is provided for 
| i interpreting the relocation instructions and performing 
| various relocation operations and varijou'.s j control 
I functions for the abstract machine, 'in response to the 
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tion iinstructdons . The abstract machine maintains 



certain variables containing information which I is 

referenced and updated in response to certaini types ' of 

the relocation instructions, thereby obviating: the need 

to include ; such information as part of each relocation 

instruction. < Certain of the relocation; instruction 

'. '■ \ ' ' . ' . : ; 

types can; also specify a particular relocation operation 

! 1 

to be performed on a I run ■ of n .consecutive relocatable 
information items, where n is specified as part of the 

10 relocation , instruction. Other types of relocation 
instructions are also; made available. 

In another aspect of the invention, an executable 
object code file separates the import symbol table from 
the export symbol table, and in a combined string table, 

15 locates the import symbol name strings closer to the 
import i symbol table and locates the export symbol name 
strings closer to the export symbol table. The export 
symbol table ; is also sorted according to a, hashing 
algorithm. Additionally, . pattern initialized data 

20 sections are stored as data expansion instructions to 
further reduce the size of the object file. 



25 



30 



BRIEF DESCRIPTION OF THE DRAWINGS ; I 
! The invention will be described with .respect to 

particular embodiments thereof, and references will be 

; j | : ' . ! ! j 

made to the; drawings, • in which like elements are given 
like jdesignations , and^in which; ■ i 

| I | ' i ' i 
j i Fig. l|is ja symbolic, simplified block diagram of 

computer system incorporating the invention; i 



Fig. 2; is 



a simplified flow chart illustrating the 



broad functions of a jloader program using thej praseht 



invent! 

' . I ' 
I ! 



on, -i i 
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Fig. 3 is a symbolic diagram of information storage 
in the memory of Fig. 1; ' 
. - Fig. 4 is a flow chart detailing the RESOLVE IMPORTS 

■ step of Fig. 2 ; ! ■ ' j 

5 1 ,Fig. : 5 is a flow chart detailing the i PERFORM 

• RELOCATIONS step of Fig . 2 ; , ' . 1 j ! ' 1 

|Fig. .6 illustrates the structure i of i a : data; section 
| generated by a typical compiler; j . i ! 

| ; Figs. 7A-7G illustrate field, definitions for 

10 j .relocation instructions recognized ; by , the | abstract 

. i machine ; ■ ; 1 ' ' • ] ' ! ! 

| , Fig. 8 is a flowchart detailing the , FIND; NEXT IMPORT 

. | , SYMBOL NAME step in Fig. 4; , ; I j ! ' 

i , ,Fig. 9 is a simplified flowchart illustrating the i 
15 'i broad functions of a program, for constructing a file 
according to the present invention; j i i 

! .Pig. 10 is a flowchart detailing the CONVERT, SYMBOLS 

step of Fig. 9; > I < I 1 ■ 

Fig. 11 is a flowchart detailing the SORT PEF EXPORT 

20 | SYMBOLS ; step of Fig. 9; 1 1 

Fig. 12 is a flowchart detailing the .CONVERT- 
, RELOCATIONS TO PEF RELOCATION INSTRUCTIONS: step of 

Fig.; 9; 1 

Fig. 13 is a flowchart detailing the DO ;SYMR, SYMB, 

25 LSYM INSTRUCTIONS step of Fig. 12; 

Fig. 14 is a flowchart detailing the DO DD ATA , CODE, 
DATA INSTRUCTIONS step of Fig. 12; and 

Fig. 15 is a flowchart detailing, the DO DESC 
INSTRUCTIONS step of Fig . 12 . ' : 



DETAILED DESCRIPTION 
Fig. 1 is a symbolic block diagram;! of 



a computer 



system in which the invention is implemented. It 
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comprises a CPU 102 which is coupled to a bus 104. The 
bus ;lo!4 is also coupled to a memory 106 and a disk drive 
108.' j Numerous types 1 of computer systems may be used, 
but in the present embodiment, computer software is 
5 usually stored on the disk drive 108 and brought into 
memory 10 6 over the bus 104 in response to commands 
issued' over bus 104 by the CPU 102 . The CPU 102 runs an 
operating system which, possibly together with 
specialized hardware, supports virtual addressing. That 
10 is, a computer program running on CPU 102 can reference 
memory addresses in an address space which is much 
larger than the physical space in memory 106, with the 
operating system and/or specialized hardware 1 swapping 
pages from memory 106 1 to and from the disk drive 108 -as 
15 : necessary, i The operating system also supports multi- 
tasking, in : which two or more tasks can' execute 
! different copies of> the same or different software in a 
parallel or time -sliced manner. j 

, i _ I . - i : , . ; I 

i 'I Executable object code files stored on the disk 

' ' I I ' I ! ; i ! . 

2 0 drive 108 are referred to herein as containers, .and 

1 those that incorporate i features of the 1 presently 

described ! embodiment are referred to as PEF ! containers 

. i ! ' , j . ; i 

(that; is, they followj a "PEF" format) . Such files may 

. ! alsb ibe 1 Iretrieved from a different part of memory 10!6, 

i i I 

25 or from another resource (not shown) . A PEF container 

i may! contain' the compiler output: from a single sourjce 

code module or, if the * compiler 1 iis able to combine more 

i : : ! 

! than one source code module, the output from a plurality 
of source code modules. Several diff erent : containers 

3 0 (PEF or otherwise) may be required to form a complete 

program. ' 

OVERALL PEF CONTAINER STRUCTURE 
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Each PEF container contains the following portions: 
a container header, N section headers,; a string table, 
and;N section data portions. ; The container header is of 
a fixed size and contains global information, about the 
structure of the PEF container. The 1 exact | contents of 
the container header are ; unimportant for an 
understanding of the present invention and are therefore 
not described herein. , 1 

! The section headers portion of, a| , PEF container 
includes a section header for each of N ; "sections". 
Every PEF section, regardless of whether it jincludes any 
raw, data, has a corresponding section , header . Such 
sections include, for example, loadable sections such as 
code, data and pattern initialized data, , (pidata), 
sections, and nonloadable sections such as a "loader" 
section. Each of the sections has a corresponding 
section number which is derived from the order of the 
section headers in the section header portion of the PEF 
container, starting with section 0. Section 0 is 
typically a code section and section 1 is typically a 
data section, but this is not a requirement. 

Each section header is 2 8 bytes long and has the 
following structure: 

TABLE III 



No., of 
Bvtes 



Description 



4 


Section name (offset into global string 1 
' table) . j ; j 


. 1 

1 

4; 


Desired section address in memory 

0) . t ■ ! 


(typically 

: ' 1 


4; 


Execution size in bytes . 




4' 

i 


' Initialization size) in bytes (prio: 
: zero- initialized extension) . 


r to any . 

i ! 
1 


4j 


Raw size in bytes. 





1 
i 



i 
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iii ■ ' 

4! Offset from beginning of container to this 

isection's raw data. I 

Region kind !(code section, data section, 
pxdata section, loader, section, etc. )'. 

Memory alignment required for this section 
(byte alignment, half-word alignment, \ full- 
word' alignment, etc.) . 

Sharing kind (unsharable section, sharable 
within a context; sharable across all context 
within a task; sharable across all contexts 
1 within a team; or sharable across all 
contexts. 

1 Reserved. 

The exact meaning of each of the elements in a 
section header is unnecessary for an understanding of 
the present invention, except as included in the table 
above, 'and except to note that the section kinds include 
the following sections: 

; 1 TABLE IV 



15 



20 



25 



30 



35 



Kind 



code 



data 



pidata 

'! i ■ 



1 Description 

I A code isection is loadable and : contains 
read-only executable object code in binary 
! format, I in 1 an uncompressed, | directly 
I executable format. 

A data section is loadable and Contains 
; initialized read/write data followed by 
read/write zero- initialized data. The 
presence of zero- initialized 'read/write 
S data lis! indicated by the section size 
! being | larger than , the image size. A 1 PEF 
data section combines the .data and .bss 
sections of a standard UNIX executable 
| object code file, i ! Data sections! are ; not 
S compressed. I 



A Pida ! ta 
i identifies 
initialized 



section is loadable and 
a ; read/write datai region 
by a: pattern specification 
contained in the section's raw data in the 
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101 



15 



20 



25 



constant 



loader 



debug 



object file. In other words, , the ;raw data 
portion . of a PEF container which 
corresponds to a pidata header contains a 
small program that is interpreted by the 
loader to determine how thej section of 
memory should 1 be initialized. 1 Zero 
extension is automatically handled by the 
loader for pattern- initializedj data as 
with the : data 'section.' ! iThe 



format of a 



pidata section 1 is described belpw. 

A constant section, 'is : loadable and 
contains read-only data.. The loader can 
place it in read-only memory, and a 
constant section is not compressed. 



The loader section is nonloadable and 
contains information about imports, 
exports and entry points. The format of 
the loader section is discussed below. 



The debug section is nonloadable and 
contains all information necessary for 
symbolic debugging of the : container. 
Multiple formats can be supported, 
including the format of a conventional 
XCOFF .debug section. 



3 0 The PEF container format includes 1 no region kind 

specifically for zero- initialized data, similar to a 
.bss section in a conventional XCOFF 1 file . ; Rather, 
zero- initialized sections are achieved 'in PEF \ simply by 
! specifying a data section with 1 an in'it' size of. 0. The 
35' loader uses the exec size to determine how much space to 
allocate to the section in memory, 'and then uses the 
| difference between the 1 exec ; size' and the d|nnjt;size to 
i ; determine how much space to izero 1 initialize . ! Thus the 
' effect of a data section with a 0 init size j is to zero- 
40! : initialize the entire data "; section in memory'.' Note 
' there is no requirement that zero- initialized data 
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follow 



other data sections 



xn 



The ■ section data portion of the PEP' container 
section data corresponding to each of the 



contains raw 



headers 

'Mi 1 



m 



the section -header portion of! the PEF 



container (except for zero- initialized sections). |The 

■ I I I ' I ! 1 ! ■ 1 ! 

sequence of section data portions need not be the same 
as the sequence of their corresponding section headers . 



The 



raw data within! certain sections including code, 



10 data and loader sections are ; required to be 8-byte 
(double -word) aligned. For code sections, the raw data 

! I 1 | i 'i , I ■ ! 

simply contains the -executable object code. , For data 
sections, the raw data contains the initialized data 'for 
the section.' For the loader section, the raw data 
15 contains additional information needed by the loader as 
set forth in more detail below. 
Loader Section Format 

The loader section contains the following portions: 
Loader section header 
2 0 Table of Import Container ID ' s 

Import Symbol Table 
j Relocation headers 
, I Relocation instructions 
j Loader String Table 
25 , ; Export Slot Table 

Export Chain Table , , 

: i ! 'j i j . . , i , 

Export Symbol! .Table . , : 1 | 1 

Loader Section Header . The loader section header 

has a j fixed size, t and provides information about the 
1 ; i ■ ' s ' : ! 

30 structure , and relative location of the various 

components of, the loader section. Most of the entries 

in the: loader section header are unimportant for >an 

i I 1 1 . : 

understanding of the present invention, except to note 
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that it contains, among I other tbiings, brie 1 entry 
specifying the number of entries present in the 'Table of 
Import Container ID'S, one entry indicating the number 
of entries in the "import symbol table" portion 1 of the 
loader section, one entry > indicating the number of 
sections in the PEF container which require relocations, 
one entry indicating the byte offset from the start of 
the loader section to the start of the' relocation 
instructions (Relocation Table) , one entry indicating an 
offset to the Loader String Table, one entry indicating 
an offset to the Export Slot -Table, a "hash' slot count" 
(indicating the number of "slots" in , the ■ i Export Slot 
Table) , and an entry indicating the number of symbols 
which are exported from this: object file (including re- 
exports of imports). All tables use zero-based indices. 
; Table of Import Container IP's . The Table', of ; Import 



Container ID'S contains ani entry f or : eabhj external 

container which may contain a symbol to be imported into 

the present PEF container. Such external containers may 

follow a conventional format such as XCOFF, or 

; ; , , _ i I , 

preferably follow the same format as : described herein 

, f or a PEF container. Each entry in the' Table j of Import 

Container, ID'S contains, among! other^inf ormation 1 which 

is not important ; for. an understanding 1 of the . present 

.invention, the following fields: "an of f set J into ' the 

,Load;er ,String Table to indicate the 1 name of the 

container, a count of a number of symbols which are 

I 

contained in the Import Symbol Table for the particular 
external container, and a zero-based index of I the first 
entry in the Import Symbol Table (in ! the present file) 
for the particular external container. 1 

Import Symbol Table . The Import Symbol Table 
contains one entry for each external symbol to be 
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10 



20 



25 



30 



imported. Each Import Symbol Table entry contains a 
symbol class identifier together with an offset into the 
Loaderi String Table to indicate the name of the symbol. 
All pfj the. symbols to be imported from a given one of 
the ^ external; containers are grouped together in the 



Symbol; Table, although within that group 



in ; any, order , j Imported symbols may ibe in any !of 



they may 



herein 
symbol , 



Import 
appear 

the following, classes: an address in code, an address jin 
datjaj a pointer to a transition vector (also referred Ito 
as j a jdescriptjor or procedure pointer}, a TOC 
or, a linker | inserted glue symbol. ' i 
Relocation Headers. The Relocation Headers portion 
. of the | loader section of a PEF container contains one 
entry: for each loadable section of the PEF container 
! 15 . which includes onei or more information items to be 
i , relocated. ,As used herein, an "information item" may be 

i a ; word,j a double word, or any other unit of information 

i which contains one or , more relocatable address fields. 

Unlike j the , conventional file format, in which each 
relocatable information item consisted of exactly one 
relocatable , address, field, a relocatable information 
item in PEF may contain any number of relocatable 
address, fields as defined by the relocation instruction. 

Note that although! relocations of information items 
which are contained within a code section are supported 
by the. PEF container definition, code sections 
preferably do not include any load time relocations at 
all.. ; This permits code sections' to be located outside 
of user- writable memory, and also permits code sections 
to bej sjharable. No.te, also that , though multiple data 
sections are supported; typically only one data | section 



iwill 



exist 



I 



i 
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Each header in the Relocation Headers portion of the 
loader section of a PEF container : has the < following 
format : 

TABLE V : 



NO. Of 
Bytes 

4 

4 



Description 
Section number. 

Number of bytes, of relocation instructions 
for this section. 

4 Offset from the start ■ of the Relocation 

Table to the first relocation ! instruction 
for this section: 1 -j ! 

The section number field of a ; relocation . header 



identifies the section number of a loadablje j section 
whose information items are 'to be relocated.: j Section 



2 0 ! number ' 0 may , 



for example, | be a code, section, and 
section number l may, for example, be , a da.ta section. 
As set forth above, the section numbers ajre^ assigned 
depending on their sequence' in the . "Section Headers" 
portion of the PEF container. Also as set .forth above, 
no relocation header will typically ,bq ( included , for a 
■ code' section since code sections preferably, contain no 
relocatable information items. Additionally, j section 
'numb'ers -1 and -2 have special meanings which j are not 
'here relevant; these sections do . not .contain 
relocations. Section number, -3 indicates a, re-export- 
of- import, and does not contain any relocations. 

Relocation Table . The Relocation Table in the 
loader section of a PEF container consists of an, array 
of relocation instructions. , All of the, relocation 
instructions for information items within a given 
section of the PEF container are grouped together. The 
relocation instructions are two or four bytes in length 
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and contain an opcode in the high -order bits. The 
remaining fields of the instruction depend upon the 
opcode and are described hereinafter. 

Loader — String Table?. The loader string table 
contains all of the strings referenced by other portions 
of the loader section. The strings are all variable, in 
length, and include both import and export symbol names 
and file names of imported libraries. The loader string 
table is located in the middle of the loader section, 
10 i after the import symbol table and relocation table, but 

1 ; ! ' j I 1 j ' I | ! [ 

the symbol export portions of the loader section, 
of the- import symbols are grouped together and 
located nearest the import symbol table, and all of the 
export | symbols are grouped together and located nearest 
15 the export symbol 'table. Both the grouping of the 
symbols and their locations relative to the two symbol 
tables tend to improve performance on loading in' a 
virtual memory computer system, since page hitsj are more 



I 

before 



All 



likjely. 



20 | Symbol 1 1 Export, Portions. The PEF container 



| organization hashes a ; container ' s export symbols intcj a 

j hash 1 data' ' structure 'at container build time. This 

I considerably speeds the search for exported symbols when 

they are to 1 be imported into another container at load 
25 time.. The symbol export portions of the loader section 
of a PEF container include an Export Slot Table, an 
Export Chain Table, and an Export Symbol Table. 

In the hash data structure, the Export Slot Table 
contains ah entry for each hash "slot" in the data 
30 structure. Each entry contains a chain count indicating 
the number of export symbols which have been placed in 
the sldt corresponding to the entry's index, and an 
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. index into the Export Chain; Table of the first Export j 
I Chain Table entry for the slot. | j ; ; i j I .; 

; I The Export Chain Table contains! an j entry jfor each 
' ' i i j | i . ■ 

export .symbol, ; grouped according to j their slots, Each 

i entry, contains the hashword value for, the! entry js: export 
symbol . 1 1 1 ! : I 

. The, Export Symbol Table jcontain^ an. i entry ifor each 
. symbol in the current; PE^ container] , which j may be 
imported by another container. These| entries jinclude an 
10 ' offset .into, the Loader String Table; ,of jtljiej current 
, container to identify the name of thej symbolj , jthe; number 
. of jthe section in the current PEF container which 
. contains the symbol, and the offset into; thajt section at 
. ] ; which the symbol may be found., i i : . i 

15, Thus to locate an export i symbol given ips name, the j 

: , loader program first computes the hashword value for the 

symbol name using a predefined, Name- to -Hash- Word , 
, function. It then uses a predefined Hash- Word- to -Hash - 
: Slot -Number function, together with the size of the 
2 0 Export Slot Table in the given container (obtained form 
the Loader Section header) to compute the slot number, 
for the export symbol . It uses the hash slot number as 
an index into the Export Slot Table, from where it 
! fetches the chain count and the Export Chain Table index . 
25! ' of the first Export Chain Table entry; for the slot. 
While the count is valid, the Export Chain Table is 
searched starting' at the Export Chain Table index 
, previously fetched. When i a' hashword; matches that 
computed for the desired; expdrt' symbol, the Export Chain 
30 1 Table index of that hashword designates the export index 
number of a potential name match. To' see; if the name 
really matches, the loader program applies the export 
' index 'to the Export Symbol i Table, which contains the 
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i ! 
offset to the export name's text, which is compared to 

the; desired 'export symbol name. If it matches', then j the 

information about the export identified by that index is 

' i I . : ' i I 

returned 1 . I Otherwise, as long as the count 1 is still 

1 i 

valid (if I not, symbol is not found), the next export 
index is checked. ! 

!Aj PEF loader program can ! also locate an export 
symbol given its export symbol index. To find 

information about an export symbol by (zero based) 
index, the PEF Loader applies the index to the Export 
Chain Table to fetch the hashword value for that symbol, 
or applies the index to the Export Symbol Table to fetch 
the rest of the information about the value. The Export 
Symbol Table contains a pointer to the actual name text . 

The general process for construction of the Export 

Slot Table' and the Export Chain Table in the presently 

described embodiment ! is as follows: ! 

!l.! Compute the humber of elements in the Export 
Slot j Table, j This is based upon the number 1 of 
exports, but! can vary depending on desired 
Export Slot jTable size overhead. 1 Write the 
Export Slot Table size ; into the Loader Section 
header. 



For each export, compute its hashword value 
using the j Name -to -Hash- Word function. Then 
compute its export hash slot value based upon 
the Export Slot Table size, using the Hash- Word- 
to -Hash- Slot -^Number function. ! j 

!'!;!. ! I '< \ ■ : i ' r i j 

S,prt j the exports by hash slot number. This 
order groups -together all exports with the 1 same 
slot {number, and creates; the (zero based) symbol 
index for each export.; At each index in the 
Export Chain Table, write the hash word for the 



export . At 
Table, write 



each : index in the Export Symbol 
the symbol table entry. ; j I 



Construct the Export Slot Table (size given j by 
Step ;1) . Each entry in this table has the count 
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of exports/ as well las the index of 'the first 
export whose hash slot values collide at that 
hash slot index. j i i : 

The following is a preferred method for computing an 
Export Slot Table size for use in the hashing process, 
although other methods could be used 'instead. ! The hash 
slot table size function computes an appropriate size 
fori the Export Slot Table, given the number of exports. 
10 ! The! size is always a power of 2, and therefore the 
j • output of this function is to give the ! number of the 
I : power of 2. The constant kAvdChainSize is 'normally 5, 
i but can vary as desired for a size vs. speed trade off. 
I Note: there is a very small penalty for longer hash slot 
15 chains, which result from shorter hash slot tables, 
because the data structures are optimized to account for 
hash slot collisions, 
int NumSlotBits ( long exportCount ) 

;{... 
2 0 register mt x; 

for (i = 0; i < 13; i++) { . , 

if ( exportCount / (1 « ±) < kAvgChainSize ) break; 

• } 



if (i < 10) return i+1; 
: return i; 
} /* NumSlotBits () */ 

30 '' The preferred Name- to- Hash -Word function used to 

i compute the hashword for export symbols in the loader 
j .section, encodes the length I of the I identifier as the 
high order 16 bits, and the low orde| bits are 
constructed by accumulating for each byte the following 
35 j operation: rotate the current hash values 1 bit, | and xor 
! ,; in the next byte of ' the name! ' It 'is implemented as 
! follows: 

ttdefine ROTL(x) ( ( (x) << 1 ) - K (x) >> (16) ) ) 
4 0 , /* produce hash value for id given length , (length 



terminated) */ 



! < 



•> null 
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unsigned long ; Hash {register; unsigned char *name, register j int 
length) ; j . , 1 



{ 



register long hash = 0 ; 
register int len = 0; 

■ j. ' '• ' ! 
while (*name) { 

| ! hash = ROTL { hash ) ; 
hash *■= *name++; , 



leh'++ ; 



35 



40' 



I 

i , 
,if 

) 



(--length == o) break ; 



return (unsigned short) (hash * (hash » 16)) + (len « 16) • 
; f /* Hash () */ j' ' 

The Hash-Word- to-Hash-Slot-Number function; converts 
a hash value as computed above, into an appropriately 
small | index ^number, j The preferred slot function \ is 
based ;upon the size, of the Export Slot Table, also 
computed as above. 

#define HashSlot (h,S,M) ( ( (li) * ( (h) » (S) ) ) t (M) ) 
hashSlotlndex = HashSlot ( hashWord32, htShift, (1 << htShift) - 1 ) 

Pidata Section Format 

The raw data of a pidata section is organized as a 
sequence of data expansion instructions. Each 
instruction begins with a 3 -bit opcode followed by a 5- 
bit count, together in the first byte. Then depending 
on the 'opcode, additional counts and/or raw data bytes 
may follow. The opcodes are as follows: 



Opcode! 0: 



Zero 



#Count 



This bpcode; takes one count parameter. It clears Count bytes starting at the current data 
location: 



Opcocie 1 : 



Block 



#Count ! (Count # of raw data bytes) 



This opcode takes one; count parameter, and count number of raw data bytes. It deposits 
the raw data 1 bytes 1 into the data location, essentially performing a block byte transfer. 



Opcode 2: 



Repeat 



MCounti, ttRCount 2 (Count! # of raw data bytes) 
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This opcode takes two count parameters, and Countl number of raw data bytes. It 
repeats the Countl number of raw data bytes RCount2 times. 

Opcode 3: RepeatBlock #Count 1, #DCount2, #RCount3 (raw data bytes) 

5 This opcode takes three count parametres and Count! + DCount2 * RCount3 number 
of raw data bytes. The raw data bytes are interpreted as follows: the first Countl bytes 
make up the "repeating pattern". The next DCount bytes, make up the first "non- 
repeating part". There are RCount3 number of "non-repeating parf's. The opcode first 
10' places the "repeating pattern", then one "non-repeating part". This is performed 
I i RCount3 times, each time using the same "repeating pattern" ; and a new: "non-repeating 
part". Lastly, one more "repeating pattern" is placed. i ! 



15! 



Opcode 4: Repeat Zero ffCountl, mCount2, RCount3 (raw data bytes) 



This opcode takes three count parameters and DCount2 * RCount3 number of raw data j 
' bytes : The raw data bytes are interpreted as follows: The "repeating pattern" is made | 

up of Countl bytes that are not represented in the raw data bytes.' . The first DCount 
i bytes i make up the first "non-repeating part''. There are RCount3\ number of "non- | 
20' repeating parf's. The opcode first places the "repeating pattern" |(zeroes), then one j 
1 "non-repeating part". This is performed RCount3 times, each time using the same 
; "repeating pattern" (zeroes) and a new "non-repeating part". Lastly, one more 
"repeating pattern" (zeroes) is placed. i i ■ | i 

I 

25, 

I ; LOADER PROGRAM I 1 ' 1 ■ ! 

. ; , | Fig. 2 is a simplified flow chart : illustrating broad 
functions of a loader program which may I employ the 
present invention. The LOAD CONTAINER routine 202 
30 illustrated in the figure is recursive as hereinafter 
described. 

In a step 2 04, the entire PEF container then being 
loaded is brought from the source of the container (disk 
! drive 108, another portion of memory 106, or a resource 
35' (not shown)) into a portion of memory 106 which is not 
. writable by a user program. If the desired container is 
already present in memory 106, having, been previously 
loaded by another task, then this step 2 04 is skipped. 
Fig. 3 is a symbolic diagram of memory array 106 for 
40 an illustration of the LOAD CONTAINER routine for a 
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situation in which the primary PEF container is an 

application ' program, and in which the application 

program includes calls to external symbols which are all 

located within a second PEP container- referred to herein 

as a library container. As shown in Fig. 3, the 

application program is loaded in step 2 04 into a region 

302 1 of the ! read-only portion of memory 106. The 

application program includes (among other sections not 

shown) a header section loaded into a memory region 304, 

a code| section loaded into a memory region 306, a data 

section loaded into a memory region 308, and a loader 

! section loaded into! a! memory region 310. ' ! i 
! ! ! I n.l !• , ! ■ j ,i ' • .. ■ ' l!i i 

i j , Referring, again to Fig. 2,, after the .container ;is 

loadedj.into memory 106, the LOAD CONTAINER routine 

allocates | jajndj fills read/write memory regions! for all 

the data jand. pidata , sections (step 206) ; For the 

illustration of Fig. 3, this step involves' copying the 

data sejction from region 3 08 of memory 106 into a region 

312 in ja read/write part of memory 106. The regions ito 

■ be ' allocated in this step are identified in' the header 

section* 3 04 of the application program, and the data to 

be copied or; otherwise! written into the allocated memory 

regionsj derive from i the corresponding section data 

portions of the application program. 1 * ! j 

i lAlsp m | step 206, a regions [i] table is created to 

indicate the virtual start address for each region i 

created; for the present v container . Specifically, if the 

present; container includes only one code section, and it 

is identified in the Section Headers portion of the 

; container as a ; section 0, then regions [0] will carry the 

.virtual r address in read-only memory at which the code 

section; was placed. : In the example of Fig. 3, 

: regions [0] will carry the virtual address of the start 
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Similarly, if section 1 [Of the 

table; entry 



of memory region 306 

container is a data section > then the 
regions [1] will carry the. virtual address 
section in memory 106 as copied for -use by 



of the data 
the current 



5| task. In the example of Fig.; 3, the , table ; entry for 
I ; regions [1] would carry the virtual address qf memory 106 
; region ,312. As mentioned; multiple | ; code j and data 
, sections are supported and may occur in i any jorder'. Each 



I 

is given a number, and ;the regions [1] ; table • indicates 
where each section is located in memory j 106!. I i : 

i Referring again to Pigj 2, af ter : the regions [i] 
table is created, all references to externalj symbols are 
resolved in a step 208 and in a manner j hereinafter 
described. (Note that in the' present; embodiment,, though 
not important for an understanding of the < present 
invention, certain external symbol imports ineed not be 
resolved at this time if they carry a flag indicating 
that the import need not be resolved. ) The : result of 
the RESOLVE IMPORTS step 208 is an imports [j] table 
which carries the virtual address of each of the symbols 
j which are referenced in the present container. The 
RESOLVE IMPORTS step 208 is, described in ;more detail 
below. I 

After the imports are resolved, a decision: is made 
in a step 212 as to whether any relocation headers are 
present in the Relocation Headers portion of the loader 
section of the PEF container. ; If not, the'ri the user 
program, is now fully loaded into memory 1 106 and jthe LOAD 
CONTAINER routine 202 is complete. The ;user| program may 
be executed at this time. If the Relocation' Headers 
portion; of the loader section does contain 



one; or more 



a| PERFORM 



relocation headers > then the: loader executes 

I " i ^ I ' 

RELOCATIONS step 210 on the; section indicated by the 



I 
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next! relocation header. As mentioned above, 1 there isj no 
requirement "that the sequence 1 in which sections are 
relocated : be 'the saline as the sequence of the sections' in 
the I PEF cbntainer.i nor is there any requirement that 
j 5 sections be relocated in numerical order. After the 

' ; j '■ ! 

1 1 relocations are performed on all the information items 

I within! the i section identified in the current relocation 

I : I ' 

i . header, the index into the : relocation headers is 

incremented in a step 216, and the routine returns to 
10 the decision step 212 in order to determine whether any- 
further Relocation Headers remain in the Relocation 
Headers portion of the loader section of the current PEF 
container. This process continues until all of such 
sections have been processed. 
15 Symbol 1 Import Resolution 

Fig. 4 is a flow chart detailing the RESOLVE IMPORTS 
step 208 (Fig. 2). Generally described, the RESOLVE 
IMPORTS routine 208 loops through all of the Import 
Container ID'S in the! Table of Import Container ID's in 

2 0 the Loader section header of the current PEF container. 

[ i 

For each such Import IContainer ID, the RESOLVE IMPORTS 

i routine 208i recursively calls the LOAD CONTAINER routine 

: ! i . ^ ; 

to bring the referenced container into memory and to 

! recursively resolve the imports specified therein. Once 

2 5 control returns to the RESOLVE IMPORTS routine for the 

: i I 1 • ! 

| i present, container (referred to herein as the "importing 

! container" ) : , ithe routine cycles through all of the 

i i I ! : i i 

: entries in: the Import iSymbol Table in the loader section 
i j . . .... 

, of ithe importing containerl For each such ; entry, the 
1 ! ' : 1 1 : i ! 

3 0 i routine : compares the name of the imported 1 symbol to 

i various ones, of the strings identified in the Export 



Symbol 



Table i of : the ' container ! most recently loaded 



(referred to herein as the "imported container") until 
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a match is found. Such comparisons are facilitated by 
the hashed drganization of ; PEF export symbol, tables. 
The virtual address of the imported symbol is then 
calculated from the corresponding entry of the Export 
Symbol Table of the imported container and stored in the 
imports [j] table. 

Accordingly, the RESOLVE IMPORTS routine 208 begins 
with a step 402 in which it is determined whether any 
entries remain in the Table of Import Container ID'S for 
the .present container. If not, then the RESOLVE IMPORTS 
routine 208 is finished and the routine is;exited in a 
step 404. If entries do remain in the. Table of Import 
Container ID'S, the LOAD CONTAINER . routine is 
recursively invoked, in a ; step 406, for , the next 



15! referenced container, 



As j previously 



mentioned, 



j ; containers need not all follow the PEF format, and if 
the I next specified container] is not in, the PEF format, 
j ; then another appropriate routine is invoked instead of 
i LOAD CONTAINER. i : i ; 

20; , ; After control , is returned to the , RESOLVE IMPORTS 
. ! | routine 2 08 for the present jcontainer, a determination 
' is made, whether the Loader Import Symbol Table ( in: the 
loader section of the present; container includes any 
further: symbols to be imported, from the : container most 
recently loaded (step 408). If not, thenj control is 
returned to step 402 to determine whether jthe, present 
container requires loading ; of any further; external 
j containers. i I 

■j ; In the illustration of Fig. 3, recursive , execution 

30 t of the LOAD CONTAINER routine 202 results in the loading 
of the library container into a region 314 of the read- 
only part of memory 106. The container header of the 
library container is placed in a region 316, the code 
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section is placed in a region 318, the data section .is 
placed in a 'region 320, and the loader section for the 
library container is placed in a region 322. The data 
section 320 : is also copied to region 324 in the 
5 read/write part of memory 106 for the present; task. | A 
separate regions [i] table is created for the library 
1 container 1 and used' as hereinafter described t'o perform 

felo'ca'tions ! in the. library container 'and, after 

■ ■ ■ ! I ,. , 1 . : . t 

1 processing 1 resumes for the application program 1 , to 

10 1 calculate the virtual 1 addresses ! of symbols imported from 

the (library container. ' ! ' ! 

! ! Returning to the Iflow chart of Fig. 4, 'after it! is 

determined that additional symbols remain to be imported 

; j 1 i i ' 

from; the most recently loaded container, the RESOLVE 

15 : IMPORTS routine 2 08 finds the next import symbol name 

: i | i j | . • , 

! (from the Import Symbol Table of the present container) 
in ' the Export Symbol Table of the container most 
! recently loaded (step 1 410) . This is accomplished by the 
steps illustrated in Fig. 8. 
20 > Referring to Fig. 8, the step 410 begins by 
computing the hashword value for the desired import 
symbol' name using the predefined Name- to -Hash-Word 
function (step 802) . : In a step 804, the routine uses 
the predefined Hash-Word-To-Hash- Slot -Number function, 
25 together with the size of the Export Slot Table, to 
compute the export slot number where the import symbol 
should' be found. In stiep 806, the routine uses the hash 
slot number as an index into the Export Slot Table, from 
where it fetches the chain count and the Export Chain 
30 Table index of the first Export Chain Table entry for 
: the slot. In a step 808, the routine loops through the 
Exportj Chain Table, starting from the index previously 
1 fetched, for !up to the number of entries designated by 
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the. chain count. For each entry in the Export Chain 
Table, the routine determines whether the hashword for 
that entry matches that computed for the desired import 
, symbol (step 810) . If not, then the loop, continues 
5 (80,8). If so, then the Export Chain Table ^ndex of that 
, hashword is applied Export' ;Symbol Table to .obtain the 
offset to the export name's text in the Loader String 
Table (step 812) , and it ; is determined whether the 
: corresponding Loader String Table , entry matches the 
10 desired import symbol name (step 814) . If not,; then the 
: loop continues (step 808), and- if so,: .then jthe, import ! 
: has been found in the export symbol table ; and the 
! routine returns to the caller j (step |816i) . j j : 
I : ! Thus the completion of sjtep 410 results inj an index 
15 , to jthe referenced entry in jthe Export Symbol ! Table of 
! the; most recently loaded container. In a step: 412, the 
j information in that Export Symbol Table entry lip used to] 
.. i calculate the ' virtual address of the symbol to bej 
j , impprted, which is, then stored in the ■ impdrts [ j ] table ; 
2 0 ; fori the importing container. . In particular] the virtual 
; | : address of the imported symbol is calculated as the 
I virtual address of the section in the imported container 
which; contains the imported symbol, plus, the of f set into 
that section where the symbol is located, j The virtual 
25 address of the section in the ; imported container which 
contains the imported symbol is taken , from the 
regions [i] table for the imported container, and both i 
and the offset are taken from the imported container's 
■i Export Symbol Table entry which has been identified for 
30 the symbol to be imported. The symbol number j : is the 
symbol number as seen by the present, or: importing 
| container. 1 : 



! 
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Note that if the section number in the Export Symbol 
Table entry for the desired symbol contains the special 
section number -2, then the virtual address is taken 
directly from the offset field of that entryl If the 
5 section number is -3 (indicating a re-export of a symbol 
imported into the library container from yet a third 
container) , then the offset is used as an index into the 
library's import symbol table. 

After the virtual address of the present symbol is 
10 : calculated arid stored in imports [j ] , j is incremented' in 
a step| 414 and control is returned to the decision step 
408 to; determine whether any further symbols need to! be 
imported from the most recently loaded container. . j 
' Relocating 'References • j 

15 1 1 Fig. ; 5 1 is a ; flow chart detailing the PERFORM 
1 RELOCATIONS step 210 in Fig. 2. As mentioned, the 

1 PERFORM RELOCATIONS routine is invoked for each of the 

; i i . ; < '■ . i i . : < . i K 

1 loadable sections i ! m the current PEF container, m the 

' sequence 'specif ied I in sequential relocation 1 headers in 

: i ' I ' 1 1 I ! , .1 

2 0 1 the current PEF container. The current section number 



i is passed as a' parameter to PERFORM RELOCATIONS 
' routine . i| |A j C- language procedure which incljudes 
PERFORM ; RELOCATIONS i routine 210 is set ■ out 
! Appendix A. 1 1 ! 

25 1 i I Referring! to FigJ 5, the routine first checks for 
errors in a 1 step 502, and aborts if an error is 
detected. ; 1 Such errors can include the receipt of a 
section 1 number which as less than zero or greater than 
the total ! number of sections in the current container. 

3 0 Another errbr : might be that the section number provided 
by the 1 calling routine is a constant section or the 
loader section, neither of which contain any relocatable 
items . 
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i After the initial error ! checking step 502, several 
variables are initialized in a step 504. j As: will be 
! seen, the individual elements of the Relocation Table 
are' interpreted at a much higher level in! the present 
5 embodiment than would relocation table ehtries in a 
! conventional relocation table: This interpretation is 
■ : , | ; performed in the present! :embodiment entirely an 
software, by routines which! simulate decoding and 
execution of the relocation instructions in the , 
10 : Relocation Table. Thus the interpretation software 
: forms a -pseudo machine" or: "abstract machine" for 
interpreting and executing the relocation instructions. 

Accordingly, the following abstract machine 
variables are initialized in the step 504: 

!5 reloc Pointer to the next relocation instruction 

±n the Relocation Table of the loader 
section of the current PEF container. 
Initialized to point to the first 
relocation instruction for ithe current 

2 0: section number as passed to the PERFORM. 

RELOCATIONS routine 210. 

, , rlEnd Pointer to the first byte after the last 

; relocation instruction for the ( current ' 

25' section number as passed ■ to ' the PERFORM ; 

■ I < RELOCATIONS routine 210. Initialized to 1 

, that value by adding, to reloc, ,the, number | 

of 1 bytes ' of 'relocation instruction as 1 

i specified in the relocation header for the : 

30 current section. 

rAddr Pointer to the next information! item in i 

the raw data | for the current jsection. i 
Initialized . to the memory address of the 
35| beginning : of the memory! region for the 

current section number L , j j . . 

' ' i : ! ; ! I 

i rSyml A symbol index| (count value) whijch is used 

to access a corresponding; import;' s address 
40! 1 in the imports [1] table.' Initialized to 

the value 0 for each new : section. ; 
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codeA 



10 



15 



20 



25 



! I 



, dataA 



rpt 



Pointer to the starting memory address of 
one : of the loadable sections in the 
current PEF container. Initialized to 
point |to the starting memory address of 
section number O.if section number 0 is 
present and 1 loadable, otherwise it ; is 
initialized to the value 0 . 1 As will] be 
seen, certain relocation instructions ican 
change I the' value of codeA,! thereby 
affecting : subsequent relocations ; by 
relocation instructions that refer to this 
variable . 

Pointer to the memory address of another 
one of the loadable sections in ,the 
current PEF container. Initialized! to 
point to the starting memory address! of 
section number 1 if section number 1| is 
present and loadable, : otherwise 
initialized to the value 0. As ; with code 
A, certain relocation instructions, can 
change the value of dataA, thereby 
affecting subsequent relocations by 
instructions that refer to this variable. 

A counter variable used in the repeat 
instructions, described below. 
Initialized to the value 0. 



30 



35 



40 



The abstract machine variables codeA and dataA do 
not 'attempt to define which section is a code section 
and ;which section is; a data section in the container, 
except! to supply initial default values for these 
variables. | The variables can point to any of the 
container's loadable! sections, and can be changed ! as 
as: i desired through the ; use of thei Relocation 



often 

.ill. 
instructions , 



I 



I Note i that although codeA and dataA are described 

above as pointing to the memory address of ! a loaded 

. | | : i I i | : I ' I 

section, ; they' do so 'by storing, a value .equal to the 
. . ; ; 1 I ; i ■ ■ . • ■ i ' 

address of the loaded section minus the default 

i . . , : ! i . i , | . . i i 



I i 

memory 

address: for that section. 



The default address for a 



i 
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section is obtained from the desired Section Address 
field in that section's Section Header. ,The , default 
address, for the ; various sections | are typically 0, 
.however,, so the value contained by the ; codeA |and dataA 
; variables will typically equal : the starting :addr,ess of 
the idesired section in memory. J , ! 

i , After the : abstract , machine : i variables; are 
! initialized, a decision is made as tq whether j there are 
i | any j (further) relocation instructions corresponding to 
10 information items within the current sectionl (step 506) . 
; , This, decision is made by testing whether reloc is less 
than rlEnd. If not, then the relocations are complete 
for the current section and PERFORM RELOCATIONS • routine 
210 is exited (step 508). ! 
15 , if . more relocation instructions exist for the 

, .present section, then the next relocation instruction is 
retrieved and copied into a variable r (step , 510) . 
(Note that in another embodiment, the ' relocation 
instruction may be retrieved, for example as part of a 
20 . step which tests its contents, without actually copying 
it into a variable for subsequent reference . ) The 
variable reloc is then incremented by two bytes in a 
step 512. As will be seen, most of the relocation 
instructions are two bytes in length, although a few of 
25 them are four bytes in length. In step 510, only the 
, first two bytes are copied into r. After step 510, 
i reloc points to the next relocation instruction if the 
current one is only 2 bytes in length', or to' the second 

| ' • . . • 

half-word of the current relocation instruction if it is 
30 j 4 bytes in length. •. j 

' All of the instruction formats begin with an opcode 

j in the high- order bits. Referring to Fig. 5 ,j the" Opcode 
i is used in a "switch" step 514; to pass control ' to one of 
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a plurality ;of routines depending upon the contents; of 
the joocode portion < of the relocation instruction now in 
the | variable r. ! ! In the present embodiment, ;all 
information items to be relocated are assumed to contain 
one jor more relocatable references, each in the form of 
a 4-byte virtual address field, and relocation is 
accomplished by adding the contents of some specified 
pointer (a pointer to the start of a region in memory or 
a pointer taken from an import) to the relocatable 
reference . 

After completion of the particular routine called 
for : by the opcode in the retrieved relocation 
instruction, control returns to the decision step 506 in 
order to determine whether any further relocation 
instructions have been provided for the present section. 
If so, | then the next relocation instruction is retrieved 
and ! the loop continues. If not, then the PERFORM 
RELOCATIONS routine 210 is exited. 



RELOCATION 



INSTRUCTIONS 



! Relocation instructions in the present embodiment 
are objjects that are packed as opcode and 1 ajrguments. 
Some of the relocation instructions act as' directives 
' for the abstract machine itself ', while others! instruct 
25 that; aj relocation needs to be ; performed, : and others 
instruct that many relocations of a particular^ type are 

. i i I : | 1 " : i 

to jbe performed. The! various field definitions for the 



different itypjes of ' instructions : are fully set i forth 
the following C language typedef. : ■ j 
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20: 
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30! 



35 



typedef union { 



unsigned op: 7, rest : 9; 

unsigned op:2, delta_d4:8, cnt : 6 ; 

unsigned op: 7, cnt_ml:9; 

unsigned op: 7, idx:9; 

unsigned op:4, delta_ml:12; 

unsigned op : 4 , icnt_ml : 4 , rcnt_ml : 8 

unsigned op : 6 , idx_top:10; 

unsigned op : 6 , cnt_ml : 4 , idx_top : 6 ; 



opcode ; 
deltadata; 
run; 

gip; 

delta; 
rpt; 
large 1 ; 
large 2 ; 



struct 
struct 
struct 
struct 
struct 
struct 
struct 
Etruct 

Reloclnstr instr; 
TUnsignedl6 bot ; 
} Relocation; 

Before proceeding, it will be useful to understand 
the structure of a data section 600 generated by a 
typical compiler. Such a structure is illustrated in 
Fig. 6. Grouped at the start of the data section 600 is 
initialized user data in a portion 602. Following the 
initialized user data portion 602, compilers; typically 
place a ' group of contiguous transition vectors (also 
known as procedure descriptors) in a region 604 



callers to 
transition 



Transition vectors are used by external 

procedures which are referenced by the 

vectors. Thus transition vectors are common especially 

in executable object code files produced on compilation 

i ; 1 I i 1 

of ; libraries . The compiler typically creates a 

transition vector for each procedure | compiled, jalthough 
by the' time relocations are being performed; by ; a loader 
program, the transition vectors for procedures which are 
never called by external callers typically have been 
eliminated. ; - . 

Transition vectors are usually created in one of two 
formats, indicated in Fig. 6 as formats 606 and 6 08, 
respectively- A given compiler typically produces 
transition vectors in only one of the two formats 60 6 or 
608.' In format 606, each transition vector contains 
three 4-byte words. The first word is a pointer 610 to 
the start of a procedure in the code section, and the 



i 
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second word 612 is a pointer to a known location in the 
TOC for the- data section 600. The third word 614 
contains an "environment word" which is rarely used and 
is not important for an understanding of the present 
invention. As created by the compiler, the pointer 610 
contains an offset into the code section for the desired 
procedure and pointer 612 contains an offset > into the 
data; section 600 usually for the start of the TOC. Thus 
the first word of each transition vector 606! must 



10 relocated by the loader program through the addition 



be 
of 



I 'J 1 ■ . . I • i ■ I 
: the start : address of| the code section in the current 

container. ; This is referred to as a "code- type 

: ' i ! h : ! ' I i ! ■ ■ ; i i 

relocation" . ; Similarly, the second word of each 

: -| : i . I ■ : : i I ■ S ■ I ! 

transition vector 606 must be relocated by the loader 

: ; I • ! : 1 i I . . ' . ! i ■ 

15 program through the addition of the start address of a 
j | j , ■ : i i . ■ I ! 

data ^ section, typically the same data section 600 which 

contains the transition vector 606. This is known as a 

"data-type relocation". The environment word 614 : in 

i i i i • : ; ! i • ; I ; . i 

each of the transition vectors 606 does not need to be 

: ! ; I : I I . i ■ : ■ • '1 ; 

2 0 relocated. 

' ' ' i : ] . . '. : : 

Transition vectors of the second type 608 are the 

i : ; , i 

same as those of the first type 606, except that the 

third word of each transition vector is omitted. 

i ■ ■ 

Following the transition vectors 604, compilers 
25 typically place a table of pointers, also known as a 
table of contents (TOC) in a portion 616 of the data 
section 600. The TOC contains various pointers 618 into 
the code section, pointers 620 into the data section 
600, and pointers 622 to external symbols which are to 

; ! ! : . •• ! 

3 0 be imported. These pointers are typically intermixed, 

I I ' ,' ! i 1 

although it is frequent that several of one type are 

! i i i : . I i 

grouped together. As produced by a compiler, pointers 

into the code section carry only the offset into the 

I 
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! ; 

code section and pointers into the ,data section carry j 
only the offset into the data section.. These types of 
pointers 618 and , 62 0 therefore require , .code j and data- 

I ' ' ' ' | | j ! 

type relocations, respectively. j Pointers ' 622 to 

' ■ ' '•'III', 

external symbols typically contain 0 j upon completion of 

compilation, although they ,are permitted to contain an 

offset to which the address |of the desired symbol will 

be added. The latter address is ■ taken! :f rom an 

appropriate entry in the imports [i] table created; by the 

10 RESOLVE IMPORTS routine 208 (Fig. 4). This ; type of 

relocation is referred to herein as ,a j" symbol - type 

j relocation" . i j : 

; Considering first the code-type relocations, it can 

be seen that the relocation table entries to accomplish 

15; such relocations in conventional executable j object code 

formats require 12 bytes of relocation information for 

each 4 -byte information item to be relocated. This is 

due . in part to the fact . that conventional format 

requires all of the following information to appear in 

20 each 12 -byte relocation table entry: the section number 

containing the information item to be relocated, the 

offset within that section of the information item to be 

relocated, the section number whose starting, address 

must be added to the information item, and an indication 

25 f : that the information item is a 32 -bit word. In the 

present embodiment, on the , other hand,, most of this 

1 ■ i 

information either is maintained in one of the abstract 

machine variables, or is inherent in, the relocation 

instruction opcode. In, particular, the : ofjf s|et in the 

30 current section of the information item to be relocated, 

is maintained in ( the abstract machine .variable; rAddr 

together with the section , number containing the 

information item to be relocated. Similarly!, the number 
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' ! ' i 

of ; ! different relocatable address fields ! in the 

information item to be relocated, and the fact that each 

is to be treated as a; 32 -bit pointer are inherent in the 

relocation instruction opcode, since a separate routine 

5 can bJ provided to perform the relocations specified 1 by 

each relocation instruction opcode. Additionally, the 

section number whose starting address in memory is to! be 

added to the' offset lvalue in the relocatable address 

field is also specified inherently by many of the 

10 relocation instruction opcodes. 

Moreover, whereas the conventional executable object 
code file format requires one relocation table entry for 
each address field to be relocated, the loader program 
of the present embodiment takes advantage of the fact 

15 that' as mentioned above, several relocations of the same 
type are often grouped together (as in the TOO . That 
■ is, a compiler may generate five pointers 618 into the 
code section sequentially, followed by four pointers 620 
into the data 1 section, 1 followed by seven pointers 622 to 

2 0 ! external symbols, followed by more pointers 62 0 into the 
data i slction, and so on. The loader program of the 

, present' : : embodiment ' takes advantage 1 of this 

; i i , ; ■ ■ 1 : J 

: characteristic by providing a : class of relocation 

I instructions which specify a type of relocation (e.g. 

25 code,| data, I symbol) together with a count of the number 

I of jsuch 1 relocations' to perform sequentially (i.e. in a 

i "ruii*| ) | ; 1 1 .! 1 ' ! 1 1 ' \ ' j 

! ■ ' 1 I Many 1 of: the 1 'relocation instructions which 

accommodate! a! run 1 of similar type 1 relocations follow the 

30 ' "run"! instruction format illustrated in Fig. 1 7A. iln 
i I | ■ .. : : s . . ■ I 

this J format 1 , the high-- order three bits carry an opcode 

the ; next four 'bits carry a subopcode indicating 



of 010, 



! 



the! type : of relocation to perform, and the low- order 
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! ' ! : 

nine bits carry a count CNT9 indicating thei number of 

I consecutive • information items to be relocated' 1 m the j 

I manner specified by the subopcode . i 'I • 

One such relocation instruction type is CODE which, ; 

5, in ,a step 516 (Fig. 5) adds the : value in abstract' 

machine variable codeA to the information item specified 

by the. machine variable rAddr for CNT9 I consecutive 

information items. rAddr is incremented by -four after 

each individual one of the relocations so as to point to 

10, the next information item in the run. Another such. 

relocation instruction type is DATA which, in !a step 518! 
i 1 . i 

; adds the value in abstract machine variable IdataA to the ; 

| , information item, , specified by the: abstract machine! 

\ . variable rAddr for . CNT9 consecutive! : four-byte^! 

15' information items'. ! 1 i 

! Another relocation instruction type / SYMRi, performs 

, ! , a run of symbol -type relocations. ! For .each of the. 

i symbol -type relocations in the. run, the information item 

! ; specified by rAddr is relocated by adding the value from 

20 j ; import s ,[ rSyml ] , both rSyml and rAddr being j incremented^ 

, j , by 1 and 4, respectively, after each ! such 1 ire'location 

! i operation in the run. j As mentioned, jrSyml' is 

I i ! | 

j initialized to zero at the I start; of' processing a 
section. Unless specifically reset by an SYMb! 0 r LSYM 
25 ! instruction (described below), i rSyml ' increases 
monotonically as the section; is processed. I 
I It can be seen that the availability of \ these three 

i relocation- type instructions (CODE; DATA 1 and SYMR) 
themselves can drastically reduce the number 1 of bytes of 
30 Relocation Table information which; are required to 
perform the required relocations on information items 
contained within a TOC. The DESC and DSC2 relocation 
instruction types can provide an even more drastic 
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reduction. As previously mentioned, in a typical 
executable object code file, all of the transition 
vectors are grouped together in a portion 604 (Fig. 6). 
For transition vectors of type 606, each transition 
vector requires a code-type relocation, followed by a 
data- type, relocation, 1 followed by no relocation. For 
transition vectors of type 608, each transition vector 
requires a code- type relocation followed by ! a data- type 
relocation. In either case, the conventional executable 
code format required 24 bytes (two 12-byte 



10 i objject 



relocation 1 table entries) to specify a 1 transition vector 
relocation!.! ; j In the present embodiment , on t'he oth'er 
hand, 
herein 



i;: run- type relocation instruction 1 , referred jto 
as; ; DESC, is provided for relocating a run bf 
transition, vectors of type 606. The routine : Ls 
implemented in DESC isbjep 522 (FigL 5) in which; ! f or each 
three-,wjord! information item 606 in the run, the 'value kn 
abstract machine i variable codeA : is added to the word 
pointed to |by| rAddr and rAddr is post - incremented by 
four. | jThe; value in; abstract machine variable ! dataA is : 
then added, to the word! pointed to by rAddr, and ^rAddr is 
post -incremented again by four. rAddr : is then 

, incremented by four a third time to skip over the 
environment word 614 . This procedure is repeated for 
each information item in the specified run. 

The DSC2 relocation instruction type is similar to 
the DESC relocation instruction type, except that it is 
adapted for use on transition vectors of type 608. DSC2 
instructions, are processed in step 524 by a ' routine 
which, is identical to - the DESC routine 522 except for 

; t | ■ j 

; the omission of the third incrementing of rAddr. \ \ 

: i Accordingly, it ; can be seen < the relocation of an 

. i i I ! ■ . | ; i 

.entire region 604 of itransition vectors can be performed 
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using a loader program of the present 1 embodiment , in 
response , to - a single 2-byte relocation, instruction. 
This represents a drastic :savings over conventional 
loader programs. I ' 1 ' ! ■ : ' ' 

Within the above framework, numerous ■ types of 
relocation instruction can | be developed jtq isimplify ! 
relocations on other commonly occurring j relocatable 
, information item formats as I they are recognized. For j 
example, one relocatable information item format which j 
10 is frequently produced in the initialized user data area i 
I 602 by C++ compilers is in the f 6rm i lof | a' one - word j 
pointer to an object in the! data section, \ followed by ! 
: \ , one j word of nonrelocatable data. Thus in jthei present 
.embodiment, a VTBL relocation instruction' type is ■ 
15, provided and processed in a step 526 which: adds the 
value in the abstract machine variable dataA to the 
first word of each information item in a run; and leaves 
the second word of each information item in the run 
unchanged. Many other information item formats can be 
20 accommodated by other relocation instruction types. 

Certain relocation instruction types modify the 
abstract machine variables without performing any actual 
relocation operation. For example, a DELTA- type 

relocation instruction merely adds a specified value to 
25 | rAddr, thereby effectively skipping • over a number of 
; information items which are not to be relocated. The 
I format of the DELTA instruction is illustrated > in Fig. 
j 7B, and in particular includes a 4-bit high-order opcode 
i , of 1000, followed by a 12 -bit iDELTA lvalue : B12 J 1 DELTA 
30 | ; instructions are processed iniaistep 528 : (Fig. 15) , which 
, merely adds B12 + 1 to the value in abstract i machine 
■variable rAddr. i I 1 !■ 
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! j j-The CDIS, instruction also modifies the value of 
abstract : ; imachine variable without performing 



an 
any 

relocations . , In particular, it loads the codeA variable 
with, the starting memory address of a specified one of 
the loadable jsectionsj in the present PEF container. The 
CDIS , instruction follows the format of Figl 7C and 
contains :a| high -order 3-bit opcode of Oil, followed;by 
a 4-bit subopcode' indicating the CDIS instruction, 
followed by a 9 -bit IDX9 field for specifying the 
section number whose start address is to be loaded into 
codeA. The CDIS instruction is processed in step 530 
(Fig. 5), which merely copies the pointer in 
regions [IDX9]j into the abstract machine variable codeA. 

A similar instruction which follows the same opcode 
format; as CDIS is the instruction DTIS, processed in a 
step 532 (Fig. 5). The step 532 merely copies the value 
in regions [IDX9] into the abstract machine variable 
dataA. ; The CDIS and DTIS instructions are : most useful 
when jinultiple code and/or data sections are produced by 
the, compilation system. 

; | Certain of the relocation instruction types 
supported , ; in , the present: embodiment' both perform i a 

■ ' : I , I : , j 

relocation: operation and also further modify one of the 



abstract machine variables 



For example,' the DDAT 



instruction if irst increments rAddr by a specified number 
(similar ; to DELTA) , and then performs !a 



of words 

I j j i 

specif ijed i 



number of contiguous , data- type ! relocations 

; (similar to! DATA). - The DDAT instruction follows the 

j- ' '' '■ ' 
I format; illustrated in ;Fig. 7D, which calls for a 2-bit 

high -order opcode of .6,0, followed by an 8-bit W8 field 

indicating the number jof words of information items to 

skip, ; followed by an N6 field indicating the: number of 

data-type relocations to subsequently perform! DDAT 
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i instructions are processed in a step'534 (Fig 1 . 5), in a 
routine which first increments rAddr by four; times the 
■ value in W8, and then adds the value in dataA to each of 
the ■ N6 following information items . | rAddr is 
5 incremented after each such relocation operation such 
that when the instruction' is completed, rAddr points to 
the next information item after the run. 

SYMB is another instruction which modifies an 
abstract machine variable and then performs a relocation 
10, operation. The SYMB instruction follows the , format of 
Fig. 7C, and causes the abstract machine to first load 
i . rSyml with a new symbol number specified by IDX9 , and 
J , then (similarly to the SYMR instruction for aj run count 
j ■ of 1) add the value in imports [rSyml] ;to the 
15 1 information item then pointed to by rAddr. 

I and ,rAddr are then incremented. The SYMB instruction is 
I processed in a . step 53 6 (Fig.! 5) .• I ; I ; i 

j , | The , SECN instruction, which also jfollows the format 
| of Fig.; 7C, performs a single [relocation to ja| section 
whose ; number is specified j in IDX9> j \ In j step 53 8 
(Fiq. 5) , the routine for processing! SECN instructions 

! I i i i 

merely adds the value in i regions [TDX9] | | to the 

• ! I • 

information item pointed to j by rAddr, and .increments 

: ; ■ ; i i i 

rAddr . , ! ! ; i i > ! ; , 1 1 | 

|The j RPT instruction : permits further compaction of 

the relocation table by providing a means of ! repeating 

| ,a series of relocation instruction's on a: [specified 

| number of consecutive groups of information j items . The 

j RPT instruction follows : the ! format of Fig 1 . :7E, which 

30 i includes a high-order 4-bit opcode of. 1001, !followed by 

I a 4 -bit number 14, followed by an 8 -bit CNT8 field. 

When invoked, the abstract machine repeats the most 

recent 14 relocation instructions, CNT8 times. The RPT 
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instruction is processed in a step 540 (Fig J 5) which 
first decrements the abstract machine variable rpt and 
tests rf or its value. If rpt is now less than 0, this is 
the first time that the RPT instruction was encountered 
and rpt is initialized to CNT8 + 1. Then, regardless of 
the value of irpt, the abstract machine variable reloc is 
decremented by the ! mimber of half-words specified by 14 
the routine is iexited. ! This has the effect 



and 



of 



causing the abstract machine to back up by 14 half-words 

10 of! relocation instructions, and to repeat them. Note 

' J I ' . i I j I 

that since . irAddr i is not decremented, the I repeated 

.ill ! . i ; i 

relocation ! instructions will operate on the next group 

i ; i , ■ : ; : i ~ 1 I 

of I unrelocat'ed information items (rather than on a 

repeatjed ' group of 'xrif ormation items). If the initial 

15 - decrementing S of rpt; brought '■■ ithat abstract' machine 
i i | ■ ■ . i ' ■ . j 

1 variable to 0;, then the RPT instruction is determined! to 

be , complete and the routine 540 is exited. 1 

, The number specified in 14 is a number of half-words 

rather than a number of relocation instructions. Thus 

20 if ! the repetition will include one or more 4 -byte 

relocation! instructions, then the value in i 14 must 

include an; additional count for each of such 4 -byte 

relocation instructions. Also, the value in 14 is one 

less than the number of half-words to repeat (that is, 

25 14 = i 0 specifies a one half-word repeat, 14 = 1 

specifies a two half-word repeat, etc.) 

. The LABS instruction is a 4 -byte relocation 

instruction which follows the format of Fig. 7F. 

i Specifically, the high- order 4 bits contain' an opcode of 

30 1010 ; the next two bits contain a subopcode of 00; and 

: the 1 loW-order 26 bits; carry a value 0FFSET26. The L^BS 

j instruction is processed in . a step 542, which; adds the' 

: i i | • i 1 : ! 

i value 0FFSET26 to the 'start 1 address of the section whose 
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information items are currently being relocated, and 
loads the result into abstract machine variable rAddr. 
Thus LABS performs a "jump" to a specific information 
item within the current section. Since the LABS 
5 instruction is a 4-byte instruction, the routine 542 
| concludes by incrementing r,eloc by another two bytes . 

.The LSYM instruction also follows the 1 format of 
Fig. 7F, with a subopcode of 01. It performs the. 
functions of setting a new symbol number in rSyml , and j 
10! subsequently performing a symbol-type relocation ! on the j 
\ . information item then pointed to by IrA'ddr .; j Both rSyml j 
i : and] rAddr are then post -incremented, i The hew symbol ! 
; , number is specified in the LSYM instruction in! the field j 
! , OFFSET2 6 . The LSYM instruction is processe'd ' in step i 

is' : 544. . i • 1 ■ ! I ; ; r '| 

,The LRPT instruction follows the ] format | of Fig. 76, , 
I . in which the high-order four bits carry an I opcode of j 

'I ' ! I ' i I ! 

\ 1011, the next two bits carry: a subopcode j of, 00, the j 
! , next four bits carry a CNT4 Value and the lasti 22 bits 
20 , carry a,CNT22 value. LRPT is! similar' to : RPTi, but 'allows 
, for I larger repeat ; counts . Specifically, when the LRPT 
step 546. is ; invoked, the last CNT4 ■ 2 -byte! relocation 
instructions are repeated the number , of times ! specif ied i 
I in CNT22. Again, since LRPT is 4-byte instruction, step 1 
25 i 546 ; concludes, after the last repetition, by 
incrementing reloc by another two bytes. 

The instruction format of Fig. 7G is also used for 
three other 4-byte relocation instructions where the 
subopcode is 01 and CNT4 specifies which of the three 
30 instructions are to. be invoked. The three instructions, 
all (processed by LSECs step 548 (Fig. 5) , are LSECN 
(which is the same as SECN but with a very large section 
number), LCDIS (which is the same as CDIS,| but with a 
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very large section number) , and LDTIS (which is the same 
as DTIS, but- with a very large section number). Again, 
since these instructions are 4 -byte instructions, LSECs 
step 548 concludes by incrementing reloc by another two 
5 bytes . 

If the opcode of the current relocation instruction 
pointed to by reloc is not recognized, then default step 
550 indicates an error and breaks. 

■ . I , | : : ■ : i I [ 

10 . CONSTRUCTING A PEF FILE 1 

■ : J A PEF file in the format described above can be 
; created, directly, from compilers. Alternatively, a 

conventional compiler can be used to create a 
conventional format executable file, and a conversion 
15 tool used to convert the conventional format executable 
file into* > a : PEF format file. As an illustration of 

procedures; which may i be used to create a : PEF format 

ii i i 

file, | Appendix B is C- language program which | does so 
; beginning from an. XCOFF-format file. The progiram will 
20 nowjbe described roughly by. reference to flowchart Figs: 
,9-15, it be;ing understood that a more • ' precise 
understanding . of the procedures can be 1 found in 

■ Appendix : b'. j ■ ] > \ ■ j 

'Figj- 9 : illustrates' the overall flow of the program. 
25 In anj initialization step 902, the XCOFF file is opened 
and read into ; memory. The various XCOFF sections are 
located j in memory and their addresses stored in 
variables. 

In a step. 904, the import symbols, export symbols 
and , import file Ids are extracted from the XCOFF file 
(in -memory copy) and converted to the organization used 
in the , PEF file format. Fig. 10 is a flowchart 
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9 04i in more 



file , Ids are' 



illustrating the symbol conversion step 

detail . ' I ! 1 

, Referring to Fig. 10, ail of the import 

first extracted from the XCOFF file;, j Specifically, it 

will be recalled, .that the import file ; Ids , are all set: 

forth in the XCOFF file as ! variable length strings in 
1 -ill I 

| . the Import File Ids portion'' of the Loader Section of the 

XCOFF file. The ordinal of .these strings represents an 

import file number, referred to in the XCOFF, External 

10 Symbol . Import /Export Table. , The step 10.02 thus involves; 
I i i i 

| copying each of the import, file Id strings i into the 

! newly created PEF Loader String Table, i and writing the! 

offset of each string into a corresponding j entry in the; 

Import . Container Ids porion ;of the PEF; Loader Section. , 

In a step 1004, the XCOFF imports are extracted from 

the XCOFF External Symbol Import/Export Tableland Loader 

String Table. This is accomplished by traversing the 

XCOFF External Symbol Import/Export: Table , looking for 

import symbols, writing the import symbol name into the 

PEF Loader String Table and an accompanying offset to 

the string into the PEF Import Symbol Table. This 

traversal is performed separately for ;each; import file 

number, so that the resulting import symbols are grouped 

by import file number. 

, In a step 1006, export symbols are. . extracted from 

the XCOFF file. Specifically, the XCOFF > External i Symbol 



is traversed 

i 

such . export 



Import/Export Table and Loader String Table 
looking, for export symbols, j and for each 
symbol , ; the symbol name is ^written > to > the PEF ; Loader 
String Table, and an accompanying offset is written to 
the PEF, Export Symbol Table.; The routine also: at this 
time computes the hash valuej for the export symbol and 



writes it into the corresponding entry of 



the Export 
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Chain Table. ! This traversal is performed separately and 
sequentially for different PEF section numbers, thereby 
resulting in a list '■■ of export symbols grouped by PEF 
section number. * j 

> In a step 1008, < the convert symbols routine 9 04 
returns to the caller. ; 

. Returning to FigL 9, in a step 906, the program 
sorts the i PEF export symbols as set forth in more detail 
in Fig|. 11. As indicated in Fig. 11, in a step 1102, 
the routine first computes the size of the Export Slot 
Table given the number of exports contained in the XCOFF 
External Symbol Import/Export Table. In a step 1104, 
the procedure loops through all of the export symbols. 
For each export symbol, the procedure computes its hash 
slot value given the Export Slot Table size. The symbol 
is added to a linked list for that hash slot value. The 
Export Slot Table is 'created in the process,, with the 
chain index field of each entry temporarily pointing to 
the linked list for; the slot. i 

i ; In a step 1106, a determination is made 'whether more 
than ja j predefined number m of the slots contain more 

than a predefined number n export symbols. 1 If bo, then 

; i ! ' ' i i i 

the [Export ! Slot Table is too small. The size ; is doubled 

. ' i i ! ' ! 

in a j step 1108, and step ll04 ! iis repeated. ! . If the 
Export, jsiot 1 Table is : not too small, then the Export 
Chain 



Table ! and Export j Symbol Table are created if rom the 

I'll I L 



linked lists. (Specifically, for 'each slot in the Export 
Slot Table; ! trie linked list f or ! that slot is walked to 



create these two tables. The chaiin index -field! for 



slot in 
correct 



the 1 Export Slot Table is overwritten with 

1 ! I ' 1 , . 1 

index! into' the ! Export Chain Table!. 



the 

the 

i 

The 



procedure then returns! to the caller (step 1112 1 
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l : 

j After the PEF export symbols are sortjed |(Fig. 9), 

the 1 relocations in the XCOFF. file are: converted' to PEF| 

1 ; i I 

format (step 908) . Fig. 12 illustrates! a procedure 

■ which accomplishes this task. : ! i I 

5 Referring to Fig. 12, in . a ' step: 1202, a' 

determination is made as to whether the code and data 

sections of the PEF file have their default numbering. 

If not, then a CDIS and/or DTIS instruction ' is "emitted" 

in order to set the CodeA and/or the DataA abstract 

10 machine variables. The "emitting" step is described 

below. 

, , In a step 12 04, the routine begins looping through j 

all of, the XCOFF Relocation Table < entries .'■ In step! 
| ; 1206, it is determined whether: the current jentry in the . 

15| | Relocation Table is an import symbol i relocation'. I : If so,: j 
i then appropriate SYMR, SYMB or LSYM instrudtidn'(s) are' 
j , emitted (step 1208) and control returns toj the looping' 
I ; step 1204. In step 1210, the routine counts the r number j 
i of successive entries in the Relocation (Table which; 

2 0 j designate the same relocation ' type Kcbde or j data) for 

. i | successive longwords in the data section 1 . If jthxs count. 

i is greater than 1, then DDAT, CODE or DATA instructions 
' , i • i 

are jemitted as necessary, (step 1212) and ; contr|ol returns 

to the looping step 1204. | • \ I n ■ : M ■ 

25 i If the run count from step 1210 is s'l, th'en in step 

I 1214, a new run count is made of successive pairs of 

entries in the Relocation Table which designate, for 

three successive longwords in the data' section 1 , a Code 

, : type relocation, a Data type relocation, 1 then no 

30. .relocation. If this run count is a' 1/ then DESC 

instruction (s) are emitted , (step 1216) and control 

returns to the looping step 1204. 
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If the run count from step 1214 is less than 1, then 
a new run count is made of successive pairs of entries 
in the Relocation Table which, for two successive 
longwords in the data section, designate a Code type 
relocation followed by a Data type relocation (step 
1218) . ; If this run count is a 1, then DSC2 PEF 
instruction (s) are emitted (step 1220) and: control 
returns to the looping step 12 04. i 

, \ If the run count of step 1218 is less than 1, then 
in, a jst ep j 1J222 , another run' count is made o'fi successive 
Relocation Table Entries designating, for two successive 
i longwoijds . ip jthe data section, a Data type ! relocation 
followed by! no relocation: If this run count 1 is a 1, 
then | VTBL I instruction (s) are emitted as appropriate 
15 ■. (step. 1224) and control returns to the looping step 
1204 .j in i : ■ ' ; ii! j 

' i i none iof; the above -described tests are successful, 
j i 
.then the Relocation Table entry specifies a lone Data or 

. Code j type ; ; relocation.! In a step 122 6, the ! routine 

therefore emits a DDAT, CODE or DATA instruction as 

: appropriate „ and returns control to the : looping step 

1204 - ' j . . ; i ; ' ■ 

,When all of the Relocation Table entries have been 

traversed and converted to PEF relocation instructions, 

the routine 908 returns to the caller (step 1228) . 

Fig. 13 illustrates the routine 1208 to do the SYMR, 

SYMB and LSYM instructions. In a step 13 02, a run count 

is made j of successive import symbol relocations in the 

Relocation Table for; successive PEF import 1 symbol 

numbers. . Notej that in, order to use the PEF SYMR/SYMB/ 

LSYM relocation instructions, these import' symbol 

relocations must be to successive import symbols 'as they 



WO 94/22078 



PCT/US94/02952 i 



55 



10 



15 



20 



25 



30 



are nuinbered after the conversion ;td the PEF format, 
(step 904) , not before. j 

In a step 1304, the delta between the first longword 
to be relocated for this run, and the \ last I longword to 
be relocated for the preyious PEF ; instruction, is 
determined. If this delta lis greater ; thaln j 0, .then a 
DELTA instruction, or if necessary an LABS instruction, 



is emitted (step 1306) . 
greater than 1 (step 



Then, if i the run; count is 



13.08) , one or i more 



SYMR 



instructions are emitted (step 1310) :and |the> routine 
returns to the caller (step '1312) . More than jone SYMR 

instruction can be emitted if the run count : is larger 

i 

than the largest run count which can be represented in 
the run count field of the SYMR instruction. ; • 

If the run count was equal to 1 (step .1308) ,! then in 
order of preference, either an SYMR, SYMB or LSYM 
instruction is emitted (step 1314) and the routine 
returns to the caller (step 1312) . 

Fig. 14 sets forth a procedure to do the DDAT, CODE 
and DATA instructions 1212 (Fig. 12). The procedure is 
reused in step 122 6 (Fig. 12) . Referring to Fig. 14, a 
determination is first made (step 1402) as to whether 
the run of entries is a run of Data type relocations'. 
If so, then it is determined whether a DDAT instruction, 
possibly preceded by DELTA instruction, can successfully 
represent the run (step 14 04) . The imaximum run count 
which can be represented in ;a DDAT : instruction is 
considered here, as are data alignment requirements . If 
such i instruction (s) will work, then : they are (emitted 



, (step 1406) and the. procedure! returns, (step 
If the DELTA/DDAT instructions will riot 
represent the run (step 1404) ,| or if the. run 



1408) i. 
accurately 
is a run of 



Code ; type relocation (step 14,02'), then in a step 1410, 
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i i 11 
CODE or DATA ins truct ion ( s ) are emitted ! as ; reguired. 

The stjep 1410 may be preceded by the emission of a DELTA 
or! LABS instructionj as required (step 1412). The 
routine then returns 'to the caller (step 14 08) . ! 
5 | The step 11216 (Fig. 12) of doing DESC instructions 

is accomplished with :a procedure set forth in 1 Fig. 15. 
Referring to Fig. 15, 1 if a DELTA or LABS instruction' is 
required prior to the DESC instruction, then it is 
emitted in a step 15 02. The DESC instruction ( s ) are 
10 then emitted in step 1504, and the routine returns to 
the caller in step 1506. The routines in Fig. 12 to do 
DSC2 instructions (step 1220) and VTBL instructions 
(step 1224) are identical to that set forth in Fig. 15, 
except that in step 1504 (Fig. 15) , DSC2 instructions or 
15 VTBL jinstructions are emitted instead of .DESC 
instructions. 

In I the above description of the "routine to convert 
the relocations f rom i XCOFF entries to PEF relocation 

; instructions (Fig. 12)', whenever it has been stated that 

i 

20 : a; PEF relocation instruction is "emitted", the emitted 
; relocation: instructions could be placed in a temporary- 
buffer.! At a subsequent time, the temporary buffer 
; could ; ^e scanned for repeating patterns and RPT or LRPT 
i instructions generated therefore ; ; 
25 | J Another ; technique ! for generating the RPT and LRPT 

; ins prjucjt ions is to identify patterns as they are being 
created. In this techniques, PEF instructions which are 
"emitted' 1 >hy the relocation conversion routine 908 are 
: held in a < 'first -in, first-out (FIFO) buffer until ■ the 
30 buffer is full or a pattern is detected. If the buffer 
is full, then the first PEF instruction in the buffer is 
output ted,, and the newly emitted instruction is 'added to 
the end,- the routine then returns. If a newly emitted 
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i i instruction starts or : continues a| partial: Imatch of! 

i ; I i j 

instructions in the buffer, S then a match size: variable; 

merely increments. If the newly emitted; instruction 

completes a match, then the match size variable returns 

5 to zero and a repeat count variable increments. If the' 

newly emitted instruction breaks a match, then the 

common instructions of the 'pattern are first outputted 

and deleted from the buffer, and then an appropriate RPT 

or LRPT instruction is outputted. The newly emitted 

10 instruction is then added to the buffer. Note that 
instructions outputted by this pattern matching process 
are still not output to the final PEF file; they are 
merely stored sequentially in a final in-memory version 
of a PEF Relocations buffer. 

15 Returning to Fig. 9, after all of the entries in thej 

XCOFF Relocation Table have been converted to PEF; 
relocation instructions (step 908) , the data sections : 
j themselves are packed using the pattern- initialized data: 
(pidata) format described above (step 910) . In stepl 

20 912, now that all of the PEF section sizes have been! 

I i 

established, offsets are computed and all of the headers 
j are; filled with the necessary information | pointing to 

the : different sections (step 912) . In step! 914, each 
; block of the PEF file is written out, with padding bytes 

251 inserted as necessary to meet data; ! alignment 

! ; • • i : i 

j requirements. i. ! 

' ,The invention has been described withj respect to 

particular embodiments thereof, and it ■ will be 

understood that numerous modifications are possible 

30. without departing from its scope. For example, the 

invention may be applied to relocatable object code file 

formats produced by a compiler prior to linking, 

although the invention is less useful in that context 
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due to the relative scarcity of repeated patterns of 
relocations to be performed. 



I 



i 



i 



l 
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APPENDIX A (37 C.F.R. 31.96(a) (2) (i) 
Copyright 1993 Apple Computer. Inc. 



10 



15 



20 



25 



30; 



35 



40 



OSErr PLPrepareRegion ( TPLPrivatelnfoPtr ourPLJnfo. 
TCount reglndex, 
TAddress regAddress ) 

{ 



register TAddress *raddr; 
register TOffset dataA; 
register int cnt; 
register TOffset codeA; 
LoaderRel ExpHeaderPtr 1 dRelHdrPtr; 
Relocation *reloc, *rlend; 
Relocation r; 
long rpt; 
long seen; 
long rsymi; 
TOffset *imports; 
TOffset *regions; 
long i; 

long relNum; ■ 

TOffset regStart; 

int err = noErr; 
#if NO_GLOBALS 
#include "PEFtbl.h" 
#endif 



i ; i 



if (ourPLJnfo == NULL) return paramErr; j j 

if ((reglndex < 0) | j (reglndex >= ourPLlnfo->numRegions)) return paramErr; 
if (ourPLJnfo- >sections[reg!ndex].regionKind == kLoaderSection) return paramErr; 
if (ourPLInfo->sections[reglndex].regionKind == kPIDataSection) return unimpErr; 

ourPUnfo -> resolved =1; ■ I i 

i 

for 0 = 0; ; i++) { 

if (i > = our PI Iafo - > numRegions) return noErr; /*no relocations for this data section*/ 

ldRelHdrPtr = & ourPLJnfo -> IdSections [i]; 

if (ldRelHdrPtr - > sectionNumber = = reglndex) break; 

} 

regions = ourPLJnfo -> regionDeltas; 
imports = (TOffset *) ourPLJnfo -> imports; 



45 



regStart = (TOffset) regAddress; 



// subtract old default address from region address 

// region array will hold deltas from new address to old address 



I 
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10 



15 



20 



25 



30 



35 



// for (i = 0; i < ourPLInfo -> numRegions; i++) 

// regions [i] -= ourPLInfo -> sections [i]. sectionAddress; 

// the regions array already holds deltas - no need to change it 

reloc = (Relocation*) (ourPLInfo -> ldRelocations + ldRelHdrPtr - > relocationsOffset); 
rlend = (Relocation *) ((Rcloclnstr *) reloc + ldRelHdrPtr -> numRclocations); 
raddr = (TAddress *) regStart; 
rsymi = 0; 
codeA = regions [0]; 
dataA = regions [1]; 
rpt = 0; 



I 



relNum = 0; 
while (reloc < rlend) { 
r = i*reloc; 

reloc = (Relocation *) ((Reloclnstr *) reloc +1); 1 
switch ( opcode [r.opcode.op] ) { 

caselkrDDAT : raddr - (TAddress *) ' 
1 j ((TAddress) raddr + r.dcltadata.delta_d4 * 4); 

: i cnt = r.deltadata.cnt; 

i|! while (-cnt > = 0) { 

// printf (-(0004: %061x) (#%4d) l\n", (char *) raddr - regStart, relNum++); 

*raddr+ + + = dataA; 

■ ; ! ■> . 

continue; 



case krCODE : cnt = r.run.cnt_ml + 1; 

while (-cnt > = 0) { 
// printf !("(0004:%061x) (#%4d) 0\n", (char *) raddr 

*raddr+ + + = codeA; 

: !> ; 

I ! ! I continue; 1 1 ! 



regStart, relNum++); 



1 ! ' j i 

i i case krDATA : i cnt = r.run.cnt_ml + 1; 
: | . while (—cnt > = 0) { 

// printf ("(0004: %061x) (#%4d) l\n", (char *) raddr - regStart, relNum++); 

*raddr+ + + = dataA; 

} 



continue; 



40 case krDESC : cnt = r.run.cnt_ml + 1; 

while (—cnt > = 0) { 
// printf ("(0004: %061x) (#%4d) 0\n", (char *) raddr - regStart, relNum++); 

*raddr+ + 4- = codeA; 
// printf ("(0004: %061x) (#%4d) l\n"; (char *) raddr - regStart, relNum++); 
4 5 +raddr++ += dataA; 

raddr+ + : 

} 

continue; 



i 
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case krDSC2 : cnt = r.run.cntml + 1; 

while (--cnt > = 0) { 
// printf ("(0004: %061x) (#%4d) 0\n", (char *) raddr - regStart, relNum+ +): 

*raddr+ + + = codeA; 
5 // printf ("(0004: %061x) (#%4d) ISn". (char *) raddr - regStart, relNum-r + ); 

*raddr+ + + = data A; 

} 

continue; 

10 case krVTBL : cnt = r.run.cnt ml +' 1; 

while (-cnt > = 0) { 
// printf ("(0004: %061x) (#%4d) l\n". (char *) raddr - regStart, relNum+H-); 

*raddr++ + = dataA; 
raddr-1- + ; 

15 } 

continue; 

case krSYMR : cnt = r.run.cnt_ml + 1; 

while (--cnt > = 0) { 

20 // printf ("(0004: %061x) (*%4d) %d\n", (char *) raddr - regStart, relNum++, rsymi); 

+raddr++ += imports [rsymi + + ]; 

} i . . i : 

continue; 

25 casekrSYMB: rsymi = r.glp-idx; 

// printf ("(0004: %061x) (#%4d) %d\n", (char *) raddr - regStart, relNum-t- +, rsymi); 
+raddr++ += imports [rsymi + +]; 
continue; 

3 0 case krCDIS : codeA = regions [r.glp.idx]; 

continue; 



35 



case krDTIS : dataA = regions [r.glp.idx]; 
continue; 

case krSECN : *raddr++ += regions [r.glp.idx]; 
continue; 



case krDELT : raddr = (TAddress *) 
4 q ((TAddress) raddr + r.delta.delta ml + 1); 

continue; 

case krRPT : if (--rpt ==0) continue; // count was ] -> rpt done 
if (rpt < 0) // first time rpt encountered? 

45 rpt = r.rpt.rcnt_ml + 1; // yes- initialize rpt count 

cnt = r.rpt.icnt ml + 2; // yes or no - back up cnt instrs 
reloc = (Relocation *) ((Reloclnstr *) reloc - cnt); 
continue; 
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case krLABS : raddr = (TAddress *) 

((r. large l.idxtop < < 16) + reloc -> bot + regStart); 
reloc = (Relocation *) ((Reloclnstr *) reloc + 1); 
continue; 



10 



case krLSYM : rsymi = (r. large 1 .idx top < < 16) + reloc -> bot; 

reloc = (Relocation *) ((Reloclnstr *) reloc + 1); 
// printf ("(0004:%061x) (#%4d) %d\n", (char +) raddr - regStart, relNum++, rsymi); 
*raddr+ + += imports [rsymi + +]; 
continue; 



15 



20 



case krLRPT : if (~rpt = = 0) { 

reloc = (Relocation *) ((Reloclnstr *) reloc + 1); 
continue; 

} 

if(rpt < 0) 

rpt = (r.large2.idx_top < < 16) + reloc -> bot; 
cnt = r.large2.cnt_ml + 2; 

reloc = (Relocation *) ((Reloclnstr *) reloc - cnt); 
continue; 



case krLSEC 



25 



30 



35 



40 



default 



seen = (r.large2.idx_top < < 16) + reloc -> bot; 
switch (r.large2.cnt_ml) { 

case 0 : *raddr+ + -f = regions [seen]; break; 

case 1 : codeA = regions [seen]; break; 

case 2 : dataA = regions [seen]; break; 

} 

reloc = (Relocation *) ((Reloclnstr *) reloc + 1); 
continue; 

err = unimpErr; 
break; 



} . r 

// restore actual region addresses to the regions array 
// instead of region deltas 

// for (i;= 0; i < ourPLlnfo -> numRegions; i+ +) 

// regions [i] += ourPLlnfo -> sections [i]. scctionAddrcss; 

// the region array now always holds deltas - don't want to change it back 

return err; 
/* PLPrepareRegion () */ 
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APPENDIX B (37 C.F.R. 51.96(a) (2) (i) 
Copyright 1992-1993 Apple Computer. Inc. 



File: HakePEF.c 

Contains: XCOFF to PEF converter tool I 

Written by: Erik L Eidt 1 

Copyright: 1992-1993 by Apple Computer, Inc., all rights 



reserved; 



10 



15 



20 



25 



30 



35 



40 



45 



50 



55 



60 



/* jma */ 
/* jma */ 
/* jma */ 



^include <Errors.h> 
H include <Memory.h> 
#include <Fi les.h> 
^include <string.h> 

#if MAC 

^include <stdio.h> 
#endif 

/* ^include <StdLib.h> 
#if HAC 

^include <CursorCtl .h> 
<fendif 



// for some constants like kDef Version: 
# include <CFLoader.h> 

« include "XCOFF. h" 
//include "PEF .h" 



typedef unsigned char byte; 



Sdefine TRUE 1 
*define FALSE 0 

byte *Halloc < long len ); 

long Write ( int fd, byte *buf, long len ); 

byte *PartialHame ( byte *name ); 

OSErr MakePStr ( byte *src, int len, byte *trg, int max ); 

void movebytes ( byte *s, byte *t, long length >; 1 

void clearbytes ( byte »t, long length ); 1 

int comparebytes ( byte *s, byte *t, int length ); 

int OpenRead C byte *fName, byte **buf, long *len ); 

long Getlnt ( byte *ptr, byte **out, byte *end ); ! 
int mchlen ( byte *str, byte *mch ); ■ ! 

int Log2 ( unsigned long aln ); 

int CheckLibOpt ( byte "namep, int *nameLengthp, TVersion *linkedVer, TVersion *oldImpVer, 
TBoolean *iB ); 

int CheckXCOFF ( byte *theContainer ); 

int FindStuff ( byte "theContainer ); ■ 
int ComputeOff sets ( void ); . j 

int FillHeaders ( byte *inFi leName ); I ! ! ! 

long MapSecNumToPef i ( long secNm, long *defAddr ); 

long RelocAddr ( TLdRelPtr reloc ); 
long Reloclndex ( TLdRelPtr reloc ); 
void dodeltn ( long relpos, lonfj curpos ); 
int RolCvt ( TLdRelPtr reloc, long count ); 
int DataAdjust ( TLdRelPtr reloc, long count ); 
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long str2,long ( byte **str ); 

' ! 1 
Boolean TryPackingData ( void ); | 

OSErr PackDntn ( register byte *ptr, register byte *end, byte "target, byte **tend ); j 
It OSF.tr UnpnckDntn ( register byte *ptr, register byte "end, register byte *trn, byte "tend 

); : : j 1 ; 

void PrtReloc ( Reloclnstr wl ); 

void CheckHatch C Reloclnstr w1 , int matchStart ); 
10 void RestartMateh ( Reloclnstr w1 ); 

void AddReloc ( Reloclnstr wl, int matchStart ); 
long MacTime ( long unixTime ); 
long GetFileTime < byte *fileName ); 

15 /* the following were not declared, hence generated warnings jma */ 

int ProcessExportList ( void ); 

void ComputeSections ( void ); 

tnt SymCvt ( TLdSymPtr IdSyms, long symCnt ); 

int SymSort ( void ); 1 
20 int WriteFile ( byte "outFileName ); 
void Free ( byte *tofree >; 

long FindXCOFFIndexByName ( byte *name, TLdSymPtr IdSyms, long symCnt ); 



25 



30 



/» »«**..««.«...«.........•«*******.»*..**.****.****.*».*..*» #/ 

void convertString2Long (byte* theString, unsigned long* theLong); 
/* **** ****** ******* * * / 



#define badllnitErr -48 



// The default version value is now private to this tool. 
// This is a legitimate version, not the wildcard value. 
35 #def ine kDefVersion 0 

long ALIGNMENT = 16; 

long oldDefVersion = kDefVersion; 

long oldlmpversion = kDefVersion; 

4 0 long currentVersion = kDefVersion; 

byte dataSection = kDataSection; 
byte shareOption = kContextShare; 

#define CODE INDEX 0 
45 tfdefine DATAINDEX 1 , 
tfdefine BSS INDEX 2 
#define kSpec i a I Symbo I Count 3 

int secNum [33; 

5 0 long tocNum [3J; 

i 
i 

// XCOFF stuff, . 

■ i j 

55 TFileHdrPtr fileHdrPtr; i 

TAuxHdrPtr, auxHdrPtr; 

TScnHdrPtr scnHdrs; 

TScnHdrPtr IdrScnHdr; 

TScnHdrPtr; codeScnHdr; 
60 TScnHdrPtr dataScnHdr; 

TScnHdrPtr bssScnHdr; 

TLdHdrPtr ! IdHdrPtr; 



TLdSymPtr 
65 long 



IdSyms; 
symCnt; 
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TLdRelPtr IdRelocs; 
long relent; 

byte MdSt rings; 

5 

long codeVAddr; 

long . codeLen; 

byte *codeStart; 

10 long dataVAddr; 

long dataLen; 

byte *dataStart; 
long packedDataLen; 

byte *paekedDataStart; 



15 



25 



byte "bssStart; 
long bssVAddr; 



long bssLen; 
2 0 long dbsLen; 



TLdSymPtr remSym [3] ; 

// PEFF stuff 

Reloclnstr "relocations; 
long relWordCnt =0; 



byte *stringTable; 

30 long stringTabSize = 0; 11 
long stringTabOf f ; 

#define kNumSpclSections 3 1 
#define kMaxLoadableSections 2 
3 5 #define kHaxPeff Sections 3 
int NutiPef i Secti ons; 
int NumLoadableSections; 

int nextSeetNum; 
40 int codeSectNun = -1; 

int dataSectNum = -1; 
int loaderSectNun = -1; 

FileHeader fileHdr; 
45 SectionHeader sections [kMaxPef fSections] ; 
byte strings [20] ; 

LoaderHeader IdHdr; 

LoaderRelExpHeader loaderHdrsAry [IcNunSpclSect ions + kMaxLoadableSections]; // 
50 -3,-2,-1.0,1,2 

LoaderRelExpHeaderPtr loaderHdr = & loadecHdrsAry IkNunSpclSections] ; 

LoaderlmportFi lelDPtr importFiles; 

LoaderlmportPtr importSymbols; 

long importNext; 
55 HashSlotEntryPtr exportHashSlot; 

HashChainEntryPtr sortedHashChain, exportHashChain; 

LoaderExportPtr sortedExportSymbols, exportSymbols; 

long exportNext; 

long sortedExportNext ; 

60 

long *XCOFFSymIndexToPef f Import Number; 
long lastF i leAddr; 
65 Boolean gPackedData; 
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Boolean optNullPad; 
Boolean optBSSExpand; 
Boolean optKeepMIT; 
Boolean optGlobalStringTab; 
5 Boolean optkloPackData; 

Boolean debug; 

byte *expF i leName; 
10 byte *outFi leName = (byte *) "a.pef"; 

#define kDefCreator '???\?' 
tfdefine kOefType 'APPL' 
unsigned long gFilcCreator = 0; 
15 unsigned long gFilcType = 0; 
Flnto gF inderlnfo; 

Boolean entryllsed, initUsed, termUsed; 

2 0 byte *entryPoint; 

long entryPointNameLength; 

byte *initPoint; 

long initPointNameLength; 

byte *termPoint; 
2 5 long termPointNamelength; 



byte "liblnfo [100]; 
3 0 int libopts; 

long pef fCodeVAddr; 
long pef fDataVAddr; 

3 5 typedef struct < 

long format; 
byte "oldname; 
byte "name; 
long secn; 

4 0 long offset; 

int class; 
> AddExpType; 
#define kAbsolute 0 
tfdefine kEqui valence 1 



45 



AddExpType *addExpAry; 
long addExpCnt; 



typedef struct Weaklmport ( 
5 0 struct Ueaklmport *next; . 

byte *libNomc; 

byte *name; 
) Ueaklmport; 

55 Weaklmport *UeakImportLi st ; ., 

int AddWeak I import C byte MibName, byte "name ); 
int CheckUeak ( void ); 

void ChecklmportsForUndefOK ( int filelndex ); 
60 int fileCnt; 

byte *gToolName; 

#ifdef JHA /* for simple AIX testing 0*N*L*Y 

65 ^include "hash.c" 
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#include "myMacLib.c" 

#endif ; 

main (int argc, byte **argv) 
5 < * 
I ong I en; 
byte *buf; 
int err; 

long sectionlndex; 
10 byte MibName; 

byte *ptr; 

byte *inFi teName; j 
int i; 

15 gToolMame = PartialHamc ( argv [0] ); 

for (i = 1; i < argc; i++) ( 1 . 

if (argv HI [0] != '-') ( fileCnt++; inFileName = Brgv ti3; continue; > 
switch (argv ti] CH ) (. 
20 case 'a' : if (i+1 >= argc) break; 

ALIGNMENT = Getlnt ( argv C++i). 0, 0 ); 
continue; 
case 'b' : optBSSExpand = TRUE; 
continue; 

25 case 'C : if (i+1 >= argc) break; 

currentversion = Getlnt ( argv [++i] , 0, 0 ); 
continue; 
case 'd' : if (i+1 >= argc) break; 

oldDefVersion = Getlnt < orgv [++ij, 0, 0 ); 
30 continue; 

cose 'e' : if (i+1 >= orgc) break; 

entryPoint = orgv t++i); 

entryPointNnmeLength = strlen ( (char*) entryPoint ); 
continue; 

3 5 case 'f : if (i + 1 >= argc) break; 

if ((argv [i] [2] > == 'c»> /* file creator */ 

convertString2Long ((byte*)argv [++i], S gFi leCreator); /* yuck! is there a 
better way to do this? */ 

else if C(argv [i] [2]) == 't') /" file type */ 

40 convertString2Long ( (byte*>Brgv C++i], & gFileType); /* yuck! is there a 

better way to do this? */ 
else 

expFi leName = argv t++i); 

continue; 

45 case 'g' : optGlobalStringTab = TRUE; ! 

continue; 

case M' : if (i+1 >= argc) break; \ 

initPoint = argv t++i]; ' t 

initPointNameLength = strlen ( (char*) initPoint ); 
50 continue; ; 

case ' I ' : printf ("# Xs: Bad switch -I (upper-ease- i ).\n# Did you mean 

tower-case-L instead?\n", gToolName); j , 

return 1; ; 
case 'k' : optKeepMIT = TRUE; 
55 continue; i ' 

case 'L' : 

case 'I' : if (i+1 >= argc) break; 

liblnfo Uib0pts++3 = argv 
// format: - 1 I ibName[=renameJ C#v1 C-v2]] t!D 
60 continue; 

case 'n' : optNullPad = TRUE; I 

continue; 
case 'o' : if (i+1 >= argc) break; 
i outFi leName = argv [++i]; 

65 i continue; 
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case 'r' : dataSection = kConstantSection; 

continue; 
cose 's' : if (i + 1 >= nrgc) brook; 

; shareOption = Getlnt ( argv t++i), 0, 0 ); 

5 i continue; 

case 't' : if (i + 1 >= argc) break; 

termPoint = argv [++i]; 
| termPointNameLength = strlen ( (char*) termPoint ); 

I conti nue; 

10 case 'u' : if + 1 >= argc) break; 

oldlmpVersion = Getlnt ( argv [++i], 0, 0 ); 
l continue; 
case 'V : if (i + 1 >= argc) break; 

sectionlndex = Getlnt ( argv [++i], & ptr, 0 >• 
■*■=> if C *ptr*+ != ' = ' ) break; 

switch (sectionlndex) < 



case 0 : pcf f CodeVAddr = Getlnt (. ptr, 0, 0 ); continue- 
case 1 : pef fDataVAddr = Getlnt ( ptr, 0, 0 ); continue; 



20 break; 

case 'h' : if (i+1 >= argc) break; 
I i bName = argv [++ i ] • 
ptr = I i bName; 
_ while ( *ptr && *ptr != ':' ) ptr++; 

25 if (*ptr 1= ':') break; 

«ptr++ = 0; 

AddWeak Import ( libName, ptr ); 
continue; 
case 'x' : optNoPaekData = TRUE; 
continue; 



30 



helP: SrlnH "k 39 ^ %S 1 OPti ° nS 1 1 "° ° UtfUe ] '"nfilexn", gToolName, gToolNome); 

35 hex 100)\n">; < n " nbcrs arguments are read in decimal unless proceed by Ox ic:0x100 = 

printf ("# opt ions: \n"); 

PHnt I , C !.'f ~t " al ' 3n codc & dnt£l sec i T "ns ro * byte boundary (def-8)\n»)- 

printt ( » -b expand bss into zeroed data (def=no)\n">; 

. n printf t"* -c # set current -vers ion to # (def =0)\n">; 

U printf ("# -d # set definition version to # <def=0)\n")- 

nllll /.'.* "! 1*™ SCt ! ntry P0int t0 routine name Cdef=what-XCOFF-says)\n»)- 

printf ('•# -f fname use file fname to load additional export list\n")- 

pnntf ("# -fc name set the creator of the output file\n")- 

4 cr printf (»# -ft type set the file type of the output file\n»); 

P""*J name „ set initialization routine to procedure name (def =none)\n») - 

(def=re^oCe!\n»>; " ,mt ' term * main routines as «P°» symbols 

printf ("# -l oldname[=newname] [#vers[-upfv]] £'] t-]\n")- 

err, printf (»# change imported library with name oldname:\n»); 

ou printf (»# =newname to neuname\n''); 

, j |T|"J* <"# *vers to current -vers ion vers at requi red)\n») ; ! 

; P r ! m ! < » -upfv to up- from- vers ion upfv\n")- 

' P r ! ntf <"# ! to init bcfore\n»); ' 

qtr pr,nt * <"* " to weak import\n»); 

,ri * pri ?K. pad e *P° rted loade r symbols with trailing null 
iaeT=nonul I )\n" ); 

: printf (»# -o fname set the target output file name (def=a.pef )\n») • 

ZlTrl Hi " r * Bark d f" section as read-only (def=read-wri te)\n»); 

- printf (•'# -s # set share option of data section to # 
ol) (def=contextShare)\n"); 

"* S6t ? ermination routine to procedure name (def =none)\n») • 

printf ( # -u # set implementation version to # (def=0)\n»>- 

Irlnlt ( rZ " V f^u 2 "1 ke SeCt, '° n * 1 haVe default virtual address #2 (def=0)\n»)- 

65 to be Sndef runtime)\n»)r me mak6 fr ° ra Cok 
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printf ("# -x disable automatic data section packing\n"); 
printf ("# %s version 2.13 (b6)\n", gTootName) ; 
return 1 ; 

) 

5 

if (expFi leName 48 fileCnt == 0) < > 
else if (fileCnt != 1) goto help; 

#if MAC 

10 ' SpinCursor ( 32 ); 

#endif 

if (expFi leName) { . 
err = ProcessExportLi st (); 
15 H Cerr) return 1; 

> 

#if MAC 

SpinCursor ( 32 ); 
20 tfendif 

if (fileCnt) { 

err = OpenRead C inFi leName, & buf, & len ); 
if (err) return 1; 

err = CheckXCOFF ( buf ); 



25 



50 



err = CheckXCOFF ( buf ); 

if (err) < printf ( "# 5te: ''/-s' not XCOFF executable file format\n", gToolName, argv 
tU ); goto EBOT; ) 



30 err = Findstuff ( buf ); 

if (err) goto EBOT; 

> 

#if MAC 

3 5 SpinCursor ( 32 ); 

#endif 

ComputeSections (); 

4 0 #if MAC 

SpinCursor ( 32 ); 
#endif 

err = SymCvt ( IdSyms, symCnt ); 
45 if (err) goto EBOT; 

#if MAC 

SpinCursor ( 32 >; 
#endif 



err = SymSort (); 
if (err) goto EBOT; 



#if MAC 

55 SpinCursor ( 32 ); 

tfendif 

if (fileCnt) < 

err = RelCvt ( IdRelocs, relCnt ); 
60 if (err) goto EBOT; 

#if MAC 

SpinCursor ( 32 ); 
65 #endif 
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if ( dataSectNum >= 0 && ! optBSSExpand S& ! optNoPackData ) 
gPackedData = TryPackingData (); 

#if MAC 
5 SpinCursor ( 32 ); 

#endi f 

ComputeOf fsets (); 

10 Fill Headers ( inFileName ); 



15 



30 



45 



i 



#if MAC 

SpinCursor ( 32 ); 1 
#endif 

err = WriteFile ( outFileName ); 
if (err) goto EBOT; 



#if HAC 

20 SpinCursor ( 32 ); 

ffendif 

return ;0; 

25 EBOT : | 

printf ("# %s: '%s' not converted\n", gToolName, inFi leNanne); 
i return ;1; 
> /* main () */ 



/* *..«.««..«.....«......**.»«»...»,** j HA 

/* 



— — ■ ,»»»....«,,,.,,*.**...* ./ 

«/ 

/* The Mac OS does not allow you to seek past EOF. I put in this routine to figure */ 
/* out if we're trying to do so, and write an appropriate number of bytes of zero */ 

3 5 /* instead. 

/* 

*/ 

/* *•*****»*****#•****»***.»*«»,«*».»» JHA „ / 

void my_SetFPos (short refNum, short mode, long offset) 
{ 

4 0 #ifdef MAC 

tfpragma unusedCmode) 
byte zero = 0; 
I ong i ; 

long curLength; 



GetFPos (refNum, &curLongth); /* get current size of file */ 



if (eurLength < offset) 
< 

5 0 for (i = eurLength; i < offset; i++) 

Write ( refNum, Szero, 1); 

> 

return; 

55 > 

#else 

SetFPos (refNum, mode, offset ); 
#endif 

) 

60 

■ ! I 

Boolean TryPackingData ( void ) 

( ! 

byte *block; 
65 long length; 
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byte *target, *end; 
OSErr err; 

block = datoStart; 
5 length t dotoLcn;' 

target = (byte *> NcwPtr ( length + 10 ); 
if ( ! target > i 

printf ("# '/.at Could not allocate target buffer C%d bytes)\n", gToolName, length ); 
10 return FALSE; 

end = target ♦ length; 

err = PackData ( block, block + length, target, & end ); 
15 if ( err ) { 

printf ("# %s: Packed Data not smaller, not packing. .. \n", gToolMame); 
return FALSE; 

> 

else { 

2 0 byte "compBuf ; 

register int i; 

// printf ( "Unpacked Size = %d\n", length ); 
// printf ( "Packed Size -== Sid\n", gPackedSize ); 
25 // printf ( "Actual Packed Size = %d\n", end - target ); 

compBuf = (byte *) NewPtr ( length ); 
if ( ! compBuf ) { 

printf ("# %s: Could not allocate comparison buffer (54d bytes>\n",, gToolName, 
30 length); 

return FALSE; 
> 

err = UnpackData ( target, end, compBuf, compBuf + length ); ' 
35 if ( err ) t 

printf ("# %s: Error unpacking data for verification; not packing data\n", 
gToolName); 

return FALSE; 
> 

40 

for ( i = 0; i < length; i++ ) { 
if ( compBuf [il != block [i] ) { 

printf ("# %s: Verify error at byte offset %x; not packing data\n", gToolName, i); 
return FALSE; 

45 > 

> 

} 

packedDataStart = target, 
50 packedDataLen = end - target; 

dataSection = kPlDataSecti on; 



55 



return TRUE; 
> /* TryPackingData () */ 



void ComputeSccti ons ( void ) 
{ 

60 nextSectNum = 0; 

lastFileAddr = sizeof fileHdr; 

if ( codeLen ) { 
65 codeSectNum = nextSectNum++; 
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lastFileAddr sizeof (Sect i onHeader ) ; 



dbsLen = dataLen + bssLen; 
5 if C dbsLen ) ( 

dataSectNum = next Sec tNum*+; 
lastFileAddr ♦= sizeof (Sect ionHeader); 

) 

10 loaderSectNum = nextSectNum**; 

lastFileAddr += sizeof (Sect ionHeader); 



if ( optGlobalStringTab ) 

lastFileAddr += sizeof strings; 

} /* ComputeSections () */ 



long Align ( long offset, long aln ) 
20 C 

int left = offset & (aln-1); 
if (! left) return offset; 
return loffset ♦ aln - left; 
) /* Align () */ 

25 

int ComputeOf fsets ( void ) 
< 

long i ; 

3 0 long loaderSectionSize; 

if (dataSectNum >= 0) C 

loaderHdr [dataSectNum] . numfie locations = relUordCnt; 
loaderHdr [dataSectNum). relocationsOf fset = 0; 

35 y 



for (i = kReExportlmport; i < kMaxLoadableSections; i++) , 
if (loaderHdr [i) . numRe locations) // |J loaderHdr Ci) . numExports) 

IdHdr. numSections+f-; 



IdHdr. relocationsOf fset = 

; sizeof (LoaderHeader) + 

, IdHdr. numlmportFi les * sizeof (Loader import F i lelD) + 

IdHdr. numlmportSyms * sizeof (Loader Import) + 
45 IdHdr. numSections * sizeof (LoaderRelExpHeader); 



IdHdr. stringsof fset = 

IdHdr. relocationsOf fset ♦ 
relUordCnt * sizeof (Reloclnstr); 

IdHdr. hashSlotTable = Align { IdHdr. stringsof fset * stringTabSize, 4 ); 



loaderSectionSize = IdHdr. hashSlotTable + 

(1 << IdHdr. hashSlotTabSize) * sizeof (HashSlotEntry) + 

5 5 IdHdr. numExportSyms * sizeof (HashChainEntry) * 

IdHdr. numExportSyms * SIZEOF_LoaderExport; 

// NOTE : 

// The section numbers of the sections is set by the macro's 

6 0 loaderSectNum, codcSectNum&dataScctNum 

// which are used to number the sections and sset their section header order. 
// Rearange as desired by changing macros I oaderScctNum, codeScctNum & dataSectNum. 
// Be sure to keep the the numbers (and therefore header;;) of the loadable 
// sections to be before the numbers (and therefore headers) of the 
65 // non-loadable sections. 
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10, 



15 



20' 



25 



// NOTE: the order of the 3 data of the sections below determines 

// the file order of the sections ! ' 1 ! ' 

// the code, that actually writes to the file peforms i ndependant I y 

// from the order of sections in the file ! 



// Loader Section 

sections [loaderSectNum]. containerOf fset = Align < lastFi leAddr, 8 ) ; 
sections [loaderSectNum]. rawSize= loaderSectionSize; I 
sections [loaderSectNum], alignment = Log2 ( 4 ); 

lastFileAddr = sections [loaderSectNum] . cpntainerOf fset + 1 I 
sections [loaderSectNum]. rawSize; 

if CcodeSectNum >= 0) C 

// Code Section 1 , ....... , „.,,„-„.. , 

sections CcodeSectNum]. containerOf fset = Align ( lastFileAddr, ALIGNMENT ). 

sections [codeSectNum). rawSize = codeLen; I , . 

sections [codeSectNum]. initSize = codeLen; s 
sections [codeSectNum]. execSize = codeLen; 
sections [codeSectNum]. alignment = Log2 ( ALIGNMENT ); 
lastFileAddr = sections [codeSectNum]. containerOf fset + ! 
sections [codeSectNum]. rawSize; 



if (dataSectNum >= 0) C 
// Data Section 
3 0 sections [dataSectNum]. 

ALIGNMENT) ); 

sections [dataSectNum]. 

sections [dataSectNum]. 
35 sections [dataSectNum]. 

sections [dataSectNum]. 
lastFileAddr = sections 
sections 



containerOffset = Align C lastFileAddr, (gPaekedData ? 4 

rawSize = gPackedData ? packedDataLen : i 

<optBSSExpand ? dataLen + bssLen : dataLen); 
initSize = (optBSSExpand ? dataLen + bssLen : dataLen) ; 
execSize = dataLen + bssLen; 
alignment = Log2 ( ALIGNMENT ); 
[dataSectNum] . containerOffset + 
[dataSectNum]. rawSize; 



40 



return 0; 
} /* ComputeOffsets () */ 



45 



50 



55 



60 



65 



int FillHeaders C byte *inFileMame ) 

static byte sect i onNamcs [) = "code\0data\0loader"; 
movebytes ( sectionNames, strings, sizeof sectionNames ); 



fileHdr. mag id 
fileHdr. magic2 
fileHdr. fileTypelD 
fileHdr. architecturelO 
fileHdr. versionNumber 

#if MAC 

fileHdr. dateTimeStamp 
GetFileTime < inFileName ); 
#else 

fileHdr. dateTimeStamp 
#endif 

fileHdr. oldDefVersion 
fileHdr. oldlmpVersion 



= peffMaglci; 
= peffMagic2; 
= peffTypelD; 
= powerPC ID; 
= kPEFVersion; 



fileHdrPtr -> fhTimDat ? fileHdrPtr -> fhTimDat 

i 
i 

MacTime ( fileHdrPtr -> fhTimDat ); 



oldDefVersion;- 
oldlmpVersion; 



// 
// 



opt l on 
opt i on 
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fileHdr. currentVersion = currentVersion; // -- option 

fileHdr. numberSections = nextSectNum; 

fileHdr. loadableSections = nextSectNum - 1; // loader section not "loadable" 

5 sections [loaderSectNum). sectionName = optGlobalStringTab ? 10 : -1; 

sections [loaderSectNum]. sect i onAddress ■ 0; 

sections [loaderSectNum]. regionKind = kLoaderSection; 

sections [loaderSectNum]. shareKind = kGlobalShare; 

10 if (eodeSectNum >= 0) C 

sections (eodeSectNum) . sectionName = optGlobalStringTab ? 0 : -1; 

sections [eodeSectNum]. sect i onAddress = pef f CodeVAddr; // -- option 

sections [eodeSectNum]. regionKind = kCodeSect i on; 

scctions [eodeSectNum] . shareKind = kGlobalShare; 

15 > 

if (dataSectNum >= 0) { 

sections [dataSectNum]. sectionName - optGlobalStringTab ? 5 : -1; 
sections [dataSectNum]. sect i onAddress = pef fDataVAddr; // -- option 

20 sections [dataSectNum]. regionKind = dataSection; // -- option 

sections [datuScctNunil . shareKind = shareOpt i on; // -- option 

> 

loaderHdr [kReExport Import) . sectionNumber = kReExport Import ; 
25 loaderHdr [kPhysicalExport] . sectionNumber = kPhysicalExport; 

loaderHdr [kAbsoluteExport] . sectionNumber = kAbsoluteExport; 



if (eodeSectNum >= 0) 

loaderHdr [eodeSectNum]. sectionNumber = eodeSectNum; 

if (dataSectNum >= 0) 

loaderHdr [dataSectNum]. sectionNumber = dataSectNum; 



return: 0; 
35 > /* FillHeaders O */ 

int WriteFile ( byte *outFi leName •) 

t : 
40 short refNum; 

long i; 
int err; 
Str255 '■ pStr; 

; I 

45 err' = MakePStr ( outFi leName, strlen ( (char*) outFileName ), pStr, sizeof pStr ); 

if (err) return err; 

err = HCreate ( 0, 0, pStr, kDefCreator, kDefType ); 
if (err < 0) { I 
50 HfifdeflMAC 

if (err != dupFNErr) { /* duplicates are ok! ? */ 
Uendif \ 

printf %s: Error creating Xs %d\n", gToolName, outFileName, err); 
return -1; 

5 5 #ifdef MAC ; 

) 

#endif 

J ! i : 

60 err = HOpenDF ( 0, 0, pStr, fsRdWrPerm, & refNum ); 

if (erf < 0) { ; i ! 

printf ("# %s: Error opening 5is %d\n", gToolName, outFileName, err); 
return -1; 

} 

65 1 
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// File Header 

Write < refNura, (byte *) & fileHdr, sizeof fileHdr ); 
// Section Headers 

for (i = 0; i < fileHdr. numberSections; i++) 

Write ( refNum, (byte '*) & sections [i], sizeof (SectionHeader). ); 



// Global String Table 
if ( optGlobalStringTab ) 
{ 

Write ( refNum, strings, sizeof strings ); 

15 } 



// Loader Section 

my SetFPos ( refNum, fsFromStart, sections [loaderSectMumJ . containerOffset ); 
UrTte C refNum, (byte *) & IdHdr, sizeof IdHdr ); 

// Loader RelExp Headers 

Urite ( refNum, (byte *) importF i les, IdHdr. numlmportFi les * sizeof 
( Loader ImportFi lelD) ); i 

Urite ( refNum, (byte ») importSymbols, IdHdr. numlmportSyms * sizeof (Loader Import ) ); 

for (i = kReExport Import; i < kMaxLoadableSections; i*+) t 

if ( loaderHdr tiD. numRelocations ) I / \ \ loaderHdr HI . numExports ) 

Urite < refNum, (byte *} S loaderHdr ti] , sizeof (LoaderRelExpHeader) ); 

30 > 
> 

Urite ( refNum, (byte *> relocations, relUordCnt * sizeof (Reloclnstr) ); 
Urite ( refNum, (byte *) stringTable, stringTabSi ze >; 
3 5 my SetFPos ( refNum, fsFromStart, sections UoaderSectNumJ . containerOffset + 

IdHdr. hashSlotTable ); 

// to skip any padding after string table 

Urite ( refNum, (byte *> exportHashSlot, (1 « IdHdr. hashSlotTabSi ze) * sizeof 
40 (HashSlotEntry) ); 

Urite ( refNum, (byte *) sortedHashChain, IdHdr. numExportSyms * sizeof (HoshChainEntry) 



) - 

Urite ( refNum, (byte *) sortedExportSymbols, IdHdr. numExportSyms « SlZE0F_LoaderExport 

): 



// Code Section 
if (codeSectNum >= 0) < 

my_SetFPos < refNum, fsFromStart, sections [codeSectNum]. containerOffset ); 
Urite < refNum, codeStart, codeLen ); 



// Data Section 

55 : if (dataSectNum >= 0> < ' ' . ' 1 

my_SetFPos ( refNum, fsFromStart, sections CdataSectNumJ . containerOffset >; 

if _ ( gPackedData ) ' 
Urite ( refNum, packedDataStart, packedOataLen ); 

else i i 

60 Write ( refNum, dataStart, dataLen ); I 

if (optBSSExpand) \ i 

{ 

Write ( refNum, bssStart, bssLen ); j 

) i ' ' 

65 i | 1 
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i 
i 

// End of file padding 

if ( tastFileAddr •= Align ( lastFi leAddr, ALIGNMENT ) ) < 

mySetFPos ( refNum, fsFromStart , Align C lastFi leAddr, ALIGNMENT ) - 1 ); 
Urite ( refNum, (byte *) 1 ); 

) . 

#if MAC 

SetEOF ( refNum, Align ( lastFi leAddr, ALIGNMENT ) ) ; 
#endi f 

FSClose ( refNum ); 



/* 

if creator/f i letype were specified, set 'en now... 

V 

if (gFi leCreator [j gFileType) 
< 

#if MAC 

Str255 pStr; 

err = MakePStr ( out F i I eName , strlen ( (char*) outFileName ), pStr, sizeof pStr ); 
if (err) return err; 

err = HGctFlnfo ( 0, 0, pStr, & gFinderlnfo ); 
if ( err ) C 

printf ("# 5ts: cannot get file type and creator info on 7.s (%d)\n", gToolName, 
outFileName, err); 
return 1 ; 

> 

if ( gFi leCreator ) 

gFinderlnfo. fdCreator = gF i leCreator; 

if ( gFileType ) 

gFinderlnfo. fdType = gFileType; 

err = HSetFlnfo ( 0, 0, pStr, & gFinderlnfo >; 
if ( err ) < 

i I printf ("# %s: cannot set file type and creator info on Xs (%d)\n", gToolName, 
outFileName, err); 
return 1; 

> : 



#else i 

gToolName); 
tfendif | 

>; ! ! 



printf ("# Xs: cannot set file type and creator on this system\n". 



return 0; 
} /*;WriteFi le () */ 

i ! i . ! 

byte "SkipCount ( byte "thisChar, int liblndex, int offset, int 'length ) 

t . ; i ! ■ 1 ' ' ■ 1 ! 

i int skipCount; \- 

! i I ! ; 

for (skipCount = 0; skipCount < (3 + liblndex*3 + offset); skipCount++) C 

while <*thisChar != 0) thisChar++; /* Skip the current string */; 

! thisChar++; /* Get to the start of the next string */ 

*lengthj= strlen ( (char*) thischar ); 
return thisChar; 
} /* SkipCount () V 
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byte *GetLibName ( byte *thisChar, int liblndex, int *length ) ! 

{ ! 

static byte name -I256] ; 
byte *fileN, *membN; 

int fLen, mLen; . 

fileN = SkipCount ( thisChar, liblndex, 1, & fLen ); i 
membN = SkipCount ( thisChar, liblndex, 2, & mLen ); 

if (! mLen) < i 
•length = fLen; 1 
return fileN; i 

> 

movebytes ( fileN, name, fLen ); i 
name [fLen] = ' : ' ; 

movebytes ( membN, name+fLen+1, mLen ); 
name [f Len*1+mLen] = O; 

•length = fLen + 1 + mLen; 
return name; 
} /* GetLibName () */ 

GetName ( TLdSymPtr sym, byte "name, int "nameLength ) 
< 

int len; 



30 if ( sym -> IsZerocs != 0) < 

byte *ptr = (byte *) sym -> IsName; 
"name = ptr; 
len = 0; 

while {len < 8 Zl *ptr) < ptr*+; len**; } 

35 > 

else { 

*name = IdStrings + sym -> IsOffset; 
len = strlen C (char*) *name ); 

} 



*nameLength = len; 

return 0; 
y /* GetName () */ 



SizeString ( int length, Boolean needNull ) 
< 

stringTabSize += length; 
50 if ( needNull || optNullPad ) 

stringTabSize**; 
y I* SizeString C) */ 



55 AddString ( byte *nnme, int length, Boolean needNull ) 
< 

movebytes ( name, stringToble + stringTnbOf f , length ); 
stringTabOff += length; 
if ( needNull |J optNullPad ) 
60 stringTabOf f++; 

y I* AddString O */ 



long MapSccNumToPeff ( long secNm, long *defAddr ) 
65 < 
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if (secNm < 0) { 
'defAddr = 0; 
return secNm; 

> 

if (secNm == secNum [CODE I NDEX] ) { 
*defAddr = codeVAddr; 
return codeSectNum; 

5 

if (secNm == secNum [DATA I NDEX] ) { 
*defAddr = dotaVAddr; 
return dataScctNum; 

> 

it (secNm == secNum [BSS INDEX]) { 

// the next line should result in subtracting out the start of bss, 

// and adding in the length of data to the symbol's address, 

// however, since XCOFF always places bssVAddr = dataVAddr + dataLen; 

// this line could be reduced to "defAddr = dataVAddr; 

*defAddr = bssVAddr - dataLen; 

return dataSectNum; 

> 

return -1; 
> /* MapSecNumToPef f () */ 



int ClassOf ( TLdSymPtr sym ) 
{ 

switch ( sym -> IsSmClass ) < 
case XMC PR : return kCodeSymbol; 
case XMC~SV : /* fall thru V 
case XMC_DS : return IcTVectSymbol ; 
case XKC~TC : return kTOCSymbol; 
default : return kDataSymbol; 

> /* ClassOf O */ 

l 

' i i 

Boolean lsVal idlmport ( TLdSymPtr sym ) 
f I 
/* ; ■ . I 

don't remove import symbols - 

if ( sym == remSym CO] ) return 0; 

if ( sym == remSym [1] ) return 0; 

if ( sym = remSym [2] ) return 0; 



return IsLdlmport ( *sym ) && 
sym -> IsIFi le > 0 && 

sym -> IsIFile <= IdHdr. num Import Fi les; 
} /* lsValidlmport () */ 



Boolean IsReExportlmport ( TLdSymPtr sym > 

// remove export symbols only 
if < sym == remSym [0] ) return 0; 
if ( sym == remSym [1] ) return 0; 
if ( sym == remSym [2] ) return 0; 

return IsLdExport ( *sym ); 
) /* IsReExportlmport () */ 



Boolean IsVal idExport ( TLdSymPtr sym ) 
< 
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// remove export symbols only 

if ( sytn == remSym [0] ) return 0; 

if { sym == remSym 11] ) return 0; 

if ( sym == remSym [2] ) return 0; j 

return IsLdExport < *sym ) && 

(sym -> IsScHum == secNum [CODE INDEX] \\ 

sym -> IsScNum == secNum [DATAINDEX] || i 

sym -> IsScNum == secNum [BSSINDEX] >;. 
10 5 /* IsVal idExport O */ • I j 

AddExport ( long seen, long theAddr. byte *name, int nameLength, int symClass > 

15 1 exportSymbols [exportNext] . symClass = symClass; 

exportSymbols [exportNext]. nameOffset = stnngTabOft; i 
exportSymbols [exportNext] . sect ionNumber =; seen; j 
// loaderHdr [seen]. numExports++; : 
exportHashChain [exportNext]. hashword = CFLHash ( name, nameLength ), 

20 exportSymbols [exportNext]. address = theAddr; j 

exportNext*-*; 
> /* AddExport O */ 

25 Addlmport ( int XCOFFindex. TLdSymPtr sym, byte -name, int nameLength ) 
< int symClass = ClassOf ( sym ); 



30 



35 



XCOFFSymlndexToPefflmportNumber [XCOFFindex] = importNext; 
importsymbols [importNext] . symClass = symClass; 
importSymbols [importNext]. nameOffset = stringTabOf f ; 
// if both import & export, add to both 
// table;;, but only one string table entry 

if < I sRcExportlmport < sym ) ) „.wi _-«. >. 

AddExport ( kReExport import , importNext, name, nameLength, symClass j, 

importNext++; 
> /* Addlmport O */ 



4 0 int symcvt C TLdSymPtr IdSyms, long symCnt ) 

< 

TVersion linkedVer, oldlmpVer; 
TBoolean iB; 
long filelndex; 
45 long symlndex; 

byte "name; 
int nameLength; 
byte "IdFiles; 
long size; 
50 TLdSymPtr sym; 

long cnt; 
long seen; 
j long defAddr; 

long sNum; j 
55 TBoolean islmp; | 

// set inital values to these i 
if (fileCnt == 0 | | auxHdrPtr -> ahEntry == -1) < , 
60 IdHdr. entryPointSeetion = kNoRegion; i ■ j 

> i ■ 

else { ' 

IdHdr. entryPointSeetion = MapSecNumToPef f (auxHdrPtr -> ahSnEntry, & defAddr); 

IdHdr. entryPointOf fset = auxHdrPtr -> ahEntry - defAddr; . 
65 > I 
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LdHdr.! initPointSection = kNoRegion; 
IdHdr. ( termPointSection = kNoRegion; 

i 
I 

// determine si2cof string table 
// first - size of import lib names 

if (IdHdrPtr) { ! 

/* Skip the first file string, it is the UNIX path */ 
IdHdr. numlmportF i les = IdHdrPtr -> IhNImpID - 1; 
IdFiles = (byte *> IdHdrPtr + IdHdrPtr -> IhlmpOff; 

> I • 

for (filelndex = 0; filelndex < IdHdr. nunlmportF i les; filelndex**) C 
name = GetLibName ( IdFiles, filelndex, & nameLength ); 
CheckLibOpt ( & name, & nameLength, & linkedVer, & oldlmpVer, & iB );, 
SizeString ( nameLength, TRUE ); 

} 



// next size of all symbol's names 

// ond types of them - import vs. export 

for Csymlndex = 0; symlndex < symCnt; symlndex**) { 

sym = & IdSyms [symlndex]; 

GctNamc ( sym, & name, & nameLength ); 

// identify entryPoint, initPoint, termPoint, by name 
// as user specified options, and remove from general 
// processing of symbols. 

islmp = IsValidlmport ( sym ); 

if (islmp && IsReExport Import ( sym ) |j 1 sVal idExport ( sym ) ) C 
if ( nameLength == entryPointNameLength && 

comparebytos ( name, entryPoint, nameLength ) ) { 
if ( islmp ) < 

IdHdr. entryPointSection = kReExport Import ; 
IdHdr. entryPointOf f set = sym -> IsValue; 

> 

else { 

IdHdr. entryPointSection = MapSecNumToPef f ( sym -> IsScNum, & defAddr ); 
IdHdr. entryPointOffset = sym -> IsValue - defAddr; 

> 

if (! optKeepMIT) remSym [0] = syin; 
entryUsed = TRUE ; 

■ > : 

if ( nameLength == ini tPointNameLength &S 

comparebytes ( name, initPoint, nameLength ) ) { 
I if ( islmp ) < ' 
IdHdr. initPointSection = kReExport Import ; 
IdHdr. ini tPointOf fset = sym -> IsValue; 

1 J 

[ else < 

IdHdr. initPointSection = MapSecNumToPef f ( sym -> IsScNum, & defAddr ); 
IdHdr. ini tPointOf fset = sym -> IsValue - defAddr; i ' 

if (! optKeepMIT) remSym [1] = sym; 
initUsed = TRUE; 

> 

if ( nameLength == termPointNameLength && 

comparebytes ( name, termPoint, nameLength ) ) { 
| if ( islmp ) { 

IdHdr. termPointSection = kReExportlmport; 
j IdHdr. termPointOffset = sym -> IsValue; 

J 

else < 
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IdHdr. termPointSection = MapSecNumToPef f ( sym -> IsScNum, & defAddr ); 
IdHdr. termPoirvtOf fset = sym -> IsValue - defAddr; 

> | 
if U optKeepMIT) retnSym t2] = sym; 1 ' 

termused = TRUE; 1 ' ' ! 

) 

> ! : 1 



10 if ( IcVolidlmport ( sym ) ) { 

IdHdr. numlmportSyms**; 
SizeString ( nameLength, TRUE ); 
if ( isReExportlmport ( sym )) 
IdHdr. numExportSyms++; 

15 > 

else if ( IsValidExport ( sym ) ) < 
IdHdr. numExportSyms**; 
SizeString ( nameLength, FALSE ); 

> 

20 > 



if ( entryPoint && ! entryUsed ) 

printf ("# '/.s: warning, the specified entry point ''/.%' was not found\n", gToolNome, 
2 5 entryPoint); 

if ( initPoint &£ I initUs»>d ) 

printf ("# Xs: warning, the specified init routine 'Xs' was not found\n", gToolNome, 
initPoint); 

if < termPoint && ! terirtUsed > 
30 printf ("# 54s: warning, the specified term routine '%s' was not foundVn", gToolName, 

termPoint); 

for (symlndex = 0; symlndex < addExpCnt; symlndex**) f 
35 SizeString ( strlen ( (char*) addExpAry tsymlndex] . name ), FALSE ); 

IdHdr. numExportSyms**; 

> ; 

40 // allocate symbol string tables and import / export tables 

stringTable = Ma Hoc < (size = stringTabSize) * U >; 
if (! stringTable) goto Mem_Error; ! 
clearbytes ( stringTable, size ); 1 
stringTabOff = 0; 



45 



XCOFFSymlndexToPeff ImportNumber = (long *) Halloc ( size = sizeof (long) * symCnt ); 
if (! XCOFFSymlndexToPeff ImportNumber) goto Hem_Error; | 
clearbytes ( (byte *) XCOFFSymlndexToPeff ImportNumber, size ); 



50 importFiles = (Loader I mportFi lelDPtr) 

Halloc ( size = sizeof (LoaderlmportFi lelD) * IdHdr. numl mportFi I es ); 

if (! importFiles) goto Hem_Error; ; 

clearbytes ( (byte *) importFiles, size ); 1 . 

i ' I . 

55 importSymbols = (LoaderlmportPtr) J 
Halloc ( size = sizeof (Loader Import) * IdHdr. numlmportSyms ); 

if (! importSymbols) goto Mem_Error; 1 

clearbytes ( (byte *) importSymbols, size ); j ■ 1 
importNext » 0; ' 

60 | . , 

exportSymbols = (LoaderExportPtr) ; 

Malloc ( size = sizeof (LoaderExport) * IdHdr. numExportSyms ); 
iff! exportSymbols) goto Mem_Error; 
clearbytes ( (byte *) exportSymbols, size ); 
65 exportNext = 0; 
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15 



exportHashChain = (HashChainEntryPtr) 

Malloc ( size = sizeof (HashChainEntry) 
if (! exportHashChain) goto Mem_Error; 
clearbytes ( (byte *) exportHashChain, size ); 



IdHdr. numExportSyms ); 



// extract imported library symbols 

for (filelndex = 0; filelndex < IdHdr. nuralmportFi les; filelndex++) { 
name' = GetLibMame ( IdFitci;, filelndex, & namcLength ); 
ChockLibOpt ( & name, & nameLength, i linkedVer, & oldlmpVor, £ iB ); 
importFiles [filelndex]. f i leNameOf fset = stringTabOf f ; 
importFiles [filelndex]. I inkedVersion = linkedVer; 
importFi les [filelndex]. oldlmpVersion = oldlmpVer; 
importFiles [filelndex]. initBefore = iB; 
AddString ( name, nameLength, TRUE ); 



20 



25 



30 



35 



// extract imports for each library 

for (filelndex = 0; filelndex < IdHdr. nuralmportFi les; filelndex**) < 
// add imported symbols, in order of the files they belong to. 
cnt = 0; 

importFiles [filelndex]. impFirst = importNext; 
] for (symlndex =0; sym Index < symCnt; symlndex**) { 
sym = & IdSyms [symlndex] ; 
if (! IsValidlmport ( sym )) continue; 
if (sym -> lsIFile-1 •= filelndex) continue; 
GetName < sym, & name, & nameLength ); 
Addlmport ( symlndex, sym, name, nameLength >; 
; AddString ( name, nameLength, TRUE ); 
cnt*+; 

> 

importFiles [filelndex!. numlmports = cnt; 



40 



45 



50 



55 



60 



65 



// extract exports by section number 

for (sNum = kReExport Import; sNum < kMaxLoadableScctions; sNum*+) { 

if (SNum •= kReExport Import) // we already started accumulating exports of type -3 

; // loadcrHdr tsNuml . expFtrst = exportNext; 
for (symlndex = 0; symlndex < symCnt; symlndex**) ( 
sym = & IdSyms [symlndex); 

if ( IsValidlmport < sym ) ) continue; // if it was an import it was checked 

a I ready 

// to see if it i s an export 

if (! IsValidExport ( sym ) ) continue; 

secn = MapSecNumToPef f ( sym -> IsScNum, & defAddr ); 

if ( seen != sNum ) continue; 

GetName ( sym, & name, & nameLength ); 

AddExport ( seen, sym -> Is Value - defAddr, name, nameLength, ClassOf ( sym ) ); 
AddString ( name, nameLength, FALSE ); 

for (symlndex = 0; symlndex < addExpCnt; symlndex**) { 
long ' xc Index ; 

AddExpType *add = & addExpAry [symlndex); 
switch ( add -> format ) { 
<case kEqui valence : 
xclndex = FtndXCOFFlndexByNnmo ( add -> oldname, IdSyms, symCnt ); 
if ( i xc 1 ndex < 0 ) C i 
; printf (»# %s: symbol •'/.%' not found for export '%s'\n", gToolName, add -> 
oldname, add -> name); 
! return 1 ; 

' 3 i •' ' ' : 

; sym = & IdSyms [ xclndex ); 

! nameLength = strlen ( (char*) add -> name ); 
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if ( lsval idlmport ( sym ) ) { 1 
Long imp Index; 

if ( kReExportlmport != sNum ) break; 

implndex = XCOFFSymlndexToPef f ImportNumber [ xclndex ]; 
5 AddExport ( kReExportlmport, implndex, add -> name, nameLength, ClassOf ( 

sym ) ); | 
) 

else < ! 

seen = MapSecNumToPef f ( sym -> IsScNum, & defAddr >; I 
10 if < seen 1= sNum ) break; 

AddExport ( seen, sym -> IsValue - defAddr, add -> name, nameLength, ClassOf 

( sym ) ); ■ 1 1 [ 

AddString ( Bdd -> name, nameLength, FALSE ); ' 

15 break; 

case k Absolute : ! 

i f ( add - > seen ! = sNum ) break ; i | ! 

nameLength = strlen ( (char*) add -> name ); I \ , 

AddExport ( add -> seen, add -> offset, add -> name, nameLength; add -> class 

20 ); I 
AddString ( add -> name, nameLength, FALSE ); i 

break; j 

> • ; 

; > i i 

25 > i 

CheekWeak (); ! I 

return 0; ■ • I 

30 . | 

Hem Error: 

printf %s: Could not allocate %d bytes\n", gToolName, size); 
return 1; 
35 > /■ symcvt C) */ 



int SymSort C void ) 

4 0 long i; 

long s; 

long *expo rt Links lot; 

long hashSlotSize; 

long si2e; 

45 long oldlndex; 

long hashSlot; 

long oldec; 

int hsincr = 0; 

5 0 // compute size of hash slot table 

IdHdr. hashSlotTobSize = CFLHashSlotBi ts ( tdHdr. numExportSyms ); 
top : 

hashSlotSize = 1 « IdHdr. hashSlotTabSize; 

55 exportHashSlot = (HashStotEntryPtr) 

Malloc ( size = sizeof (HashSlotEntry) * hashslotsize ); 
if (! exportHashSlot) goto Mem_Error; 
clearbytes ( (byte *) exportHashSlot, size ); 

60 exportLinkSlot = (long *) 

Malloc ( size = sizeof (long) * IdHdr. numExportSyms ); 
if (! exportLinkSlot) goto Mem_Error; 
clearbytes ( (byte *) exportLinkSlot, size ); 

65 for (i = 0; i < IdHdr. numExportSyms; i++) { 
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hashSlot = CFLHashSlot ( exportHashChatn [i]. hashword, IdHdr. hashSlotTabSi ze ); 
exportLinkSlot [i] = exportHashSlot (hashSlot]. chainlndex; 
otdcc = exportHashSlot [hashSlot]. chainCount; 
exportHashSlot. [hashSlot] . chainCount++; 
5 exportHashSlot IhashSlot]. chainlndex = i ; 

if (exportHashSlot [hashSlot]. chainCount != oldec + 1) { 
if ( -*+hsincr > 3) < 
printf ("# %s: hash chain count overflow (quitting)\n", gToolName); 
return -1; 

10 > 

printf ("# %s: Hash chain count overflow, using more slots\n", gToolName); 
IdHdr. hashSlotTabSize++; 
Free ( (byte *) exportHashSlot ); 
Free ( (byte *) exportLinkSlot ); 
15 goto top; 

) 

if ( exportHashSlot [hashSlot]. chainlndex != i) ( 

printf ("it %s: hash slot value overflow (too many exports, qui tt i ng)\n" , 
gToolName) ; 

2 0 return - 1 ; 

> 

> 

sortedExportSymbpls = (LoaderExportPtr) 
25 Ma Hoc ( size = sizeof (LoaderExport ) * IdHdr. numExportSyms ); 

if (! sortedExportSymbols) goto Mem_Error; 
clearbytes ( (byte *) sortedExportSymbols, size ); 

sortedHashChain = (HashChainEntryPtr) 

3 0 Malloc ( size = sizeof (HashChainEntry) * IdHdr. numExportSyms ); 

if (! sortedHashChain) goto Metn_Error; 
clearbytes ( (byte *) sortedHashChain, size ); 

sortedExportNext = 0; 
35 // convert exportHashSlot in place, 

// put map of old new into indexHap 
for (s = 0; s < hashSlotSize; s*+) { 

oldlndex = exportHashSlot Cs) . chainlndex; 1 

exportHashSlot ts] . chainlndex = sortedExportNext; 

40 i | : i 

' for (i =0; i < exportHashSlot [s] . chainCount; i++) < I 1 

sortedExportSymbols [sortedExportNext] = exportSymbols [oldlndex]!; 

i sortedHashChain [sortedExportNext] = exportHashChain toldlndex) 1 ; 
sortedExportNext++; i 
45 oldlndex = exportL'inkS lot [oldlndex]; ! 



Free ( (byte *) exportLinkSlot ); /* ! ! wow, we almost care about memory disposal" */ 
5 0 return 0; 

Mem_Error:; 

printf ("# %s: Could not allocate %d bytes\n", gToolName, size); ' 
return 1; 

5 5 ) /* SymSort () */ 1 

int Addweak Import ( byte "libName, byte *name ) ' 

( ! 

60 Weaklmport *ptr = (weaklmport *) NewPtr ( sizeof (Weaklmport) ); 

if (! ptr) return -1; 

ptr -> libName = libName; 

ptr -> name = name; 

ptr -> next = WeaklmportLi st; 
65 UeaklmportList = ptr; 
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return 0; 
> /* AddUeaklmport () 



5 int checkWeak ( void ) 
{ 

Weak Import *ptr; 
long start, end; 
long filelndex; 
10 int libNameLen; 

int impNameLen; 



15 



for (ptr = WeaklmportList; ptr; ptr = ptr -> next) < 
start = end = 0; 



libNameLen = strlen ( (char *> ptr -> libName ); 
for C filelndex = 0; filelndex < IdHdr. numlmportFi les; filelndex** ) < 



impNameLen = strlen C (char *) (stringTable + importFiles [filelndex]. 
2 0 f i leNameOffset) ); 

if ( impNameLen != libNameLen j| 

i comparebytes ( stringTable* importFiles [filelndex). fi leNameOffset, 
ptr -> libName, 
libNameLen ) ) continue; 

25 

start = importFiles [filelndex). impFirst; 

end = start + importFiles Ifilelndex). numlmports; 

for (; start < end; start** ) { 

if ( r.trcmp C (chor") {stringTable + importSymbols [stortl . nomeOffsct), 
30 (chor*) ptr -> name) 1= 0 ) 

continue; 

importSymbols [start). symClass ;= kUndeflmpOK; 
// we found the symbol whose name matches, so stop! 
break; 

35 ) 

// we found the file whose library name matches, so stop! 
break; 

> 

40 if (start >= end) 

printf ("# %s: warning, symbol 'Xs' in file 'Xs' not found\n", gToolName, ptr -> 

name, ptr -> libName); 
} 

45 for C filelndex = 0; filelndex < IdHdr. numlmportFi les; filelndex** ) C 

if ( importFiles [filelndex). initBefore & kWeaklmport ) 
ChecklmportsForundefOlc ( filelndex ); ■ 

> 

: l 

50 return 0; 

> /* CheckWeak (> */ 

void Check! mportsForUndef OK ( int filelndex ) 
55 < 

long start, end; j 

start = importFiles [filelndex). impFirst; 1 
end = start + importFiles (filelndex). numlmports; | 
60 for (; start < end; start** ) ( [ 

if ( importSymbols [start). symClass & kUndeflmpOK ) continue; ! 
printf Xn: warning, iiymbol 'Xs' in not marked as weak, but its librnry V'XsV 
is.\n", , 
gToolName, 

65 stringTable + importSymbols [start]. nameOffset, 



iinsi:h:x:io: <wn 
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stringTable * importFiles [filelndex]. f i leNameOf f set ); 

> 

) /* ChecklmportsrorUndefOK O */ 



long RclocAddr ( TLdRclPtr reloc ) 

long relpos = (long) reloc -> IrVAddr; . 

10 if (reloc -> IrRSecNm == secNum [DATA1 NDEX] ) C 

relpos -= dataVAddr; 

> ■ i 

else if (reloc -> IrRSecMm == secNum CBSSINDEX3) < 
relpos -= bssVAddr; 
15 relpos += dataLen; 



20 



25 



30 



return > relpos; 
> /* RelocAddr () */ 



long Reloclndex ( TLdRelPtr reloc ) 
I 

long rlndex = reloc -> IrSymNdx; 

if (rlndex == BSSINDEX) 
rlndex = DATAINDEX; 
return rlndex; 
> /* Reloclndex O */ 



int DataAdjust ( TLdRelPtr reloc, long count ) 
< 

whi I e ( count > 0) < 
35 long rlndex = reloc -> IrSymNdx; 

long *rAddr; 

if (reloc -> IrRSecNm != secNum [DATAINDEX] && 
reloc -> IrRSecNm != secNum [BSSINDEX] ) t 
40 printf ("# %s: not converting relocation; relocations not ol lowed in codc\n", 

gToolttamc); 

return 1; 

> 

45 if (rlndex == CODE INDEX) { 

if (reloc -> IrRSecNm == secNum [8SSINDEX]) { 
if (! optBSSExpand) < 

errmsg : printf ("# %s: relocation of BSS to BSS not convertable into PEF format without 
-b option\n", gToolNarae); 
50 | printf ("# item at 0xS08lx in BSS\n», reloc -> IrVAddr); 

printf ("# relocate item into (initialized) DATA to properly 

convert\n"); 

j return 1; 

55 rAddr » (long *) (bssStart i+ RclocAddr ( reloc ) - datoLcn); I 

■ > i ■ i : 

else < 

rAddr = (long *) (dataStart ♦ RelocAddr ( reloc ) ); 

5 I • i 

60 : "rAddr -= codeVAddr; I 

: ^ rAddr += peff CodeVAddr; I 

> ; ! i ; , ; , : ; 

else if (rlndex == DATAINDEX) { 

if (reloc -> IrRSecNm == secNum [BSSINDEX] ) { 
65 iff (! optBSSExpand) goto errmsg; 
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rAddr = (long *) CbssStart + RelocAddr ( reloc ) - dataLen); 
else { 

rAddr = (long *) (dataStart + RelocAddr ( reloc ) ); 

5 J 

* rAddr -= dataVAddr; 
*rAddr += pef fDataVAddr; 

) 

else if (rlndex == BSSINDEX) < 
10 rlndex = DATAINDEX; 

if (reloc -> IrRSecNm == secNum CBSSINDEXJ) < 
if (! optBSSExpand) goto errmsg; 

rAddr = (long *> (bssStart + ReloeAdaV < reloc ) - dataLen); 

} 

15 else { 

rAddr = (long *) (dataStart + RelocAddr ( reloc ) ); 

> 

TAddr -= bssVAddr; 
TAddr ♦= dataLen; 
2 0 "rAddr += pef f DataVAddr; 

> 

count - - ; 
reloc++; 

} i 
2 5 return 0; j 

) /* DataAdjust O V ! 



30 



long index = 0; 



#define kRptBufSize 8 // keep power of 2 

#define kRptBufHask (kRptBufSize-1) 
typedef Reloclnstr TRptBuf IkRptBufSize] ; 
TRptBuf rptBuf; // last n words of relocation 

35 int rptDist; // match found how far back? 

int rptRest; // number of instrs in current partial match 

int rptRunCnt; // number of complete matches 



40 void PrtReloc ( Reloclnstr w1 ) 
< 

relocations trelWordCnt++] = w1; 
> /* PrtReloc () */ 

45 

CheckRelocMatch ( Reloclnstr wl, int matchStart ) 
{ 

int i; 

for (i = matchStart; i <= kRptBufSize; i++) { 
50 if (wl == rptBuf I relWordCnt-i & kRptBufMask 3) < 

rptDist " i; 

rptRest =1; // first word of match 

break; 

} 

55 > 

} /* CheckRelocMatch () */ 



void RestartMatch ( Reloclnstr wl ) 
60 < 

int relCopy = rclWordCnt; 
int rptRunCopy = rptRunCnt; 
int rptRestCopy = rptRest; 
int rptDistCopy = rptDist; 
65 TRptBuf rptCopy; 
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// don't emit a RPT 1,1 
if (rptRunCnt == 1 && rptDist == 1 ) ( 
rptRunCopy = rptRunCnt = 0; 
5 rptRestCopy = rptRcst = 1 ; 

) 

// output completed runs; set rptRunCnt to 0 
if (rptRunCnt > 0) < 
10 if C rptRunCnt <= ksRPTMAX ) C 

PrtReloc ( (krRPT << RELOPSHFT) + ( rptD i st - 1<<8) + rptRunCnt - 1 )• 

) 

else { 

PrtReloc ( CkrlRPT « RELOPSHFT ) * ( rptD i st - 1 <<6> * (rptRunCnt >> 16) ); 
15 PrtReloc ( rptRunCnt & 65535 ); 

) 



20 



! 45 

i 

i 

I 

50 



// in case of an incomplete run, which we will want to add to thru 
// repeat buffer, save the repeat buffer to know what the partial 
// sequence was 

movebytes ( (byte *) rptBuf, Cbyte *) rptCopy, sizeof rptCopy ); 



// if a run was sent, then clear the match buffer 

2 5 // otherwise, don't 

if (rptRunCopy) { 

clearbytes ( (byte •) rptBuf, sizeof rptBuf ); 

rptDistCopy = 1; // and set the distance of first ok match to 1 

// (no match will be found, however, AddRcloc 
■3 0 ! //will know that a sequence is being restarted 

// when it sees that tnatchStart > 1) 

relCopy,-= rptDist; 

3 5 rptRunCnt = 0; , 

rptD|ist]= 0; , I 

rptRcst != 0;' i i j 

while (m rptRestCopy >= 0) < // output incomplete match 

AddReloc ( rptCopy C relCopy & kRptBufMask J, rptDistCopy* 1 ); 

4 0 rptDistCopy = 0; 

rclCopy**; 

> 

AddRcloc ( w1, 1 ); 
> /* RestartMatch C) */ 



void AddReloc ( Reloclnstr w1 , int matchstart ) 
static int secondWord; 



if (rptDist) < //is repeat buffer started? 

II yes- check if next word continues repeat 
if (w1 && w1 rptBuf I relWordCnt-rptDist+rptRest & kRptBufMask J) { 
I cc rptRest**; // yes . check if match complete? 

= 5 if (rptRest == rptDist) < i 

rptRunCnt**; // ye s- incremnt run count 

rptRest = 0; // clear count of uncompleted run 

J 

^0 else { // no . match continuation failed 

RestartMatch ( w1 ); 

> 

return; 

65 
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15 



20 



// case of no partial match started yet 
C 

if (matchStart > 1) secondWord = 0; 
boundary 



// no - check for match anywhere 

// sequence is being restarted by Restart 

// restarted sequence must start on instr 

i ' ; 

// because match started on instr boundary 



only check if start . of | instr 



if (! secondWord && wl) 

CheckRelocMatch ( w1 , matchStart ); 
if (rptDist) { 

if (rptRest == rptDist) { 
rptRunCnt++; 
rptRest = 0; 

> 

> 

else if (w1) i 

rptBuf C relWordCnt & kRptBufMask] = w1; 
PrtReloc ( wl ); 

secondWord = ( secondWord ? 0 : IsLARG ( w1 » RELOPSHFT ) ); 

) I 

) 

3 /* AddReloc () */ 



// 
// 
// 
// 



matched somewhere? 
yes- is match complete? 
yes- increment run cnt 
set rest cnt to 0 



no - add to match buffer, output 



25 



30 



void dorform ( int op, long run, long max ) 
C 

int cnt; 

while (run > 0) < 

cnt = run > max ? max : run; 

AddReloc ( (op « RELOPSHFT) + cnt - 1 , 1 ); 

run -= cnt; 

> 

> /* dorform () */ 



35 



40 



void doform ( int op, long cnt ) 
{ 

AddReloc ( (op « RELOPSHFT) + cnt, 1 ); 
> /* doform () */ 



45 



void dolform ( int op, long offset ) 
{ 

AddReloc ( (op << RELOPSHFT) + ((offset » 16) & 1023), 1 ); 
AddReloc ( offset & 65535, 1 ); 
> /* dolform () */ 



50 



void dodform ( int op, int delta, int run ) 
{ 

AddReloc ( (op « RELOPSHFT) + (delta « 4) + run, 1 ); 
} /* dodform () */ 



55 void dodelta ( long relpos, long delta ) 
{ 

if (! delta) return; 
if (delta >= 0 && delta <= ksDELTA) 
doform ( krDELT , delta-1 ); 
60 else 

dolform ( krLABS, relpos ); 
) /* dodelta () */ 



65 



int RetCvt ( TLdRelPtr reloc, long count ) 
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long curpos = 0; 

long relpos; ' 
long delta; i 
5 long run; 

long rlndex; 

long symlndex = 0; 

long pefflndex; 

10 DataAdjust { reloc, count ); 

i ! 

relocations = (Reloclnstr *) Malloc ( count * sizeof (Reloclnstr) * 2 * 2 + 8 ); 
// max possible size of relocation: old count * 2 bytes per reloclnstr 
// "2 for long form of reloc instr * 2 for two instrs 

15 ! ! > ' 

if (! relocations) return -1; 1 

if ( count > 0 ) < 

if (codeSectNum >= 0) 
2 0 if ( codeSectNum != 0) 

doform C krCDIS, codeSectNum ); 

if (datoSoctNum >= 0) 

if ( dataSectNum != 1 ) 

2 5 doform ( krDHS, dataSectNum ); 

) 

whi le (count > 0) < 

relpos = RelocAddr ( reloc ); // address to relocate 

3 0 delta = relpos - curpos; // delta from last address 

curpos = relpos; // new curpos is addr to relocate 

run = 1 ; 

3 5 // look for run of 

// SYM.SYM+1 ,SYH+2. . . 

rlndex = Reloc Index ( reloc ); 

4 0 if (rlndex > BSS1NDEX) { 

pefflndex = XCOFFSymlndexToPef f lmportNumber [rlndex - kSpeci al Symbol Count] ; 
if (pefflndex == symlndex) { 
whi le (count >= 2 && 

RelocAddr ( reloc*1 ) == curpos+4 && 
45 XCOFFSymlndexToPef f lmportNumber [Reloclndex ( reloc+1 ) - 

kSpecial Symbol Count] ' 
j == symlndex+1) { 

curpos *- It; 

i reloc++; 1 
50 symlndex-"-; 

run**; 
count--; 

> 

> 

55 

dodelta ( relpos, delta ); 

if (run > 1 I! pefflndex == symlndex) < 

dorform ( krSYMR, run, ksISHAX ); 

syinlndex++; 

60 > , 1 

else < 

if (pefflndex >= ksISHAX) 

dolform ( krLSYH, pefflndex ); 
else 

65 doform ( krSYMB, pefflndex ); 
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symlndex = pef f Index+1 ; 

> 

curpos += 4; 
reloc++; 

5 index += run; ! 

count--; 
continue; 

10 // look for run of: 
// code, 
// data 

while (count >= 2 S& 
15 RelocAddr ( reloc+1 ) == curpos+A && 

Reloclndex ( reloc+1 ) == rlndex) < 
curpos += 4; 
reloc++; 
run++; 

20 count--; 
> 

// no single run found, 
// look for run of: 
25 // desc(code/dota/blank) 

// vtbKdota/btank) 

if (run == 1 && rlndex == 0) { // desc (12 byte form) 

while (count >= 2 && 
30 RelocAddr ( reloc ) == curpos ti 

Reloclndex C reloc ) == CODE INDEX && 
RelocAddr ( reloc+1 ) == curpos+4 && 
Reloclndex C reloc+1 ) == DATAINDEX &S 
(count == 2 J | RelocAddr ( reloc+2 ) >= curpos+12> ) f 
35 curpos += 12; 

reloc += 2; 
run++; 
count -= 2; 

> 

40 if (run > 1) { 

run--; 

dodelta ( relpos, delta ); 
dorform ( krDESC, run, ksDEHAX ); 
index += run*2; 

45 continue; ' 



> 



I 



while (count >= 2 && // desc (8 byte form) 

RelocAddr ( reloc ) == curpos &S 

Reloclndex ( reloc ) == CODE INDEX && I i 

50 RelocAddr ( reloc+1 ) == curpos+4 && ! 

Reloclndex { reloc+1 ) == DATAINDEX) { I ' 

if (count > 2) < II try to exclude 12 byte form 

long Bddr = RelocAddr ( reloc+2 ); 

if (addr < curpos+8 || addr == curpos+12) break; 1 i 

55 > 11 

curpos += 8; 

reloc +=2; 1 1 

run++; 1 1 

count -■ 2; 

60 > 

if (run > 1) < 
run- - ; 

dodelta ( relpos, delta ); 
dorform ( krDSC2, run, ksDEHAX ); 
65 index += run*2; 
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continue; 

> 

else if (run ~ 1 && rlndex == 1 ) < // vtbl 

5 while (count >= 2 £& 

RelocAddr ( retoc+1 ) == curpos+8 && 
Reloclndex ( reloc+1 ) == DATA1N0EX SX 
(count m 2 j | RelocAddr { rcloc+2 ) >" curpos+16) ) ( 
curpos += 0; 
10 reloc**; 

run++; 
count--; 

> 

if (run > 1) { 

15 /* ■ 

; if (run <= ksDVRHAX) ( 

if (delta > ksDVDMAX J J (delta & 3)) ( 
dodelta ( relpos, delta ); 
delta = 0; 

20 > 

dodform ( krDVBL, delta << 2, run-1 >; 

, > 
else 

*/ 

25 { 

dodelta ( relpos, delta >; 
dorform ( krVTBL, run, ksVTMAX >; 

I > 

curpos ♦= 8; 
30 reloc++; 

index += run; 

count--; 

continue; 

} 

35 } 

if ( rlndex == OATA1 NDEX && run <= ksDDRMAX ) { 
if (delta > ksDDDMAX || (delta & 3)) ( 
dodelta ( relpos, delta ); 
4 0 delta = 0; 

> 

dodform ( krODAT, delta, run ); 

> 

else < 

45 dodelta ( relpos, delta ); 

dorform ( rlndex == 0 ? krCODE : krDATA, run, ksDATA ); 

curpos += A; 
reloc++; 
50 index += run; 

count- -; 

y ; 

__ // 'flush rpt buffers - with the unmatchable and reserved instruction oDcode 

55 AddReloc ( 0, 1 ); ' f~ • 

return 0; 
} /* RelCvt () */ 

60 . j 

int FindStiiff ( byte *theContainer ) 
{ > 

fileHdrPtr = (TFi leHdrPtr)theContainer; 

auxHdrPtr = (TAuxHdrPtr)(f i leHdrPtr + 1); 

65 scnHdrs = (TScnHdrPtr)(auxHdrPtr + 1); 
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IdrScnHdr 

IdHdrPtr 

IdSyms 

IdRelocs 

IdStrings 



= & scnHdrs tauxHdrPtr -> ahSnLoader- 1 3 ; 
= CTLdHdrPtr) (theContainer * IdrScnHdr -> shsenPtr); 
= (TLdSymPtr) (IdHdrPtr + 1); 
= ^TLdRelPtr) C IdSyms + tdHdrPtr->lhNSyms); 
= (byte *) IdHdrPtr ♦ ldHdrPtr->lhSTOff ; 



10 



secNum [0] = auxHdrPtr -> ahSnText; 
secNum t13 = auxHdrPtr -> ahSnData; 
secNum [2] = auxHdrPtr -> ahSnBSS; 



15 



20 



25 



30 



codeScnHdr 
codeStart 
codeLen 
codeVAddr 

dataScnHdr 
dataStart 
dataLen 
dataVAddr 



& scnHdrs [ secNum [03 - 1 3 ; 
theContainer + codeScnHdr -> shScnPtr; 
codeScnHdr -> shsize; 
(long) codeScnHdr -> shVAddr; 

& scnHdrs I secMum til -ID ; 
theContainer + dataScnHdr -> shScnPtr; 
dataScnHdr -> shsize; 
(long) dataScnHdr -> shVAddr; 1 



bssScnHdr = & scnHdrs t secMum C23 -13; 

bssLen = bssScnHdr -> shSize; 

bssVAddr = (long) bssScnHdr -> shVAddr; 

if (optBSSExpand) < 

bssStart = Malloc ( bssLen ); 

clearbytes ( bssStart, bssLen ); 
y . ... 



I 1 



35 



40 



45 



50 



55 



60 



if 
{ 



(auxHdrPtr -> ahSnText) 



codeScnHdr 
codeStart 
codeLen 
codeVAddr 

se 

codeScnHdr 
codeStart 
codeLen 
codeVAddr 



= & scnHdrs [ secNum t03 -13; 

= theContainer + codeScnHdr -> shScnPtr; 

= codeScnHdr -> shsize; 

= (long) codeScnHdr -> shVAddr; 



= 0; 

■ 0; 

= 0; 
= 0L; 



if 



(auxHdrPtr -> ahSnData) 



dataScnHdr 
dataStart 
dataLen 
dataVAddr 



se 

dataScnHdr 
dataStart 
dataLen 
dataVAddr 



= & scnHdrs [ secNum t13 - 1 J; 

= theContainer + dataScnHdr -> shScnPtr; 

= dataScnHdr -> shSize; 

= (long) dataScnHdr -> shVAddr; 



= 0; 
= 0; 
= 0; 
= OL; 



65 



if (auxHdrPtr 
{ 

bssScnHdr 
bssLen 



-> ahSnBSS) 

= & scnHdrs [ secNum C23 
= bssScnHdr -> shsize; 



1 3; 
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bssVAddr = (long) bssScnHdr -> shVAddr; 

if (optBSSExpand) 

{ 

bssStart .= Malloc < bssLen ); 
5 clearbytes ( bssStart, bssLen ); 

> 

> 

else 
{ 

10 bssScnHdr = 0; 

bssLen = 0; 

bssVAddr = OL; 

if (optBSSExpand) 

< 

15 bssStart = (byte*)0; 

> 



2 0 locNum [0] = 0; 

locNum [1] = 0; 

locNun [2] = scnHdrs [auxHdrPtr -> ahSnOata - 1]. shSizc; 

symCnt = IdHdrPtr -> IhNSyms; 
25 relCnt = IdHdrPtr -> IhNReloc; 



30 



return 0; 
} /* FindStuff () */ 



#if 0 ! ; 

long FindExportSectionNumber ( long exportNumber ) 
< 

long seen; 

35 //--returnj exportSymbols [exportNumber]. sectionNumber; 

: ', | j | ' 1 I 

for (seen = kRcExport Import; seen < kHaxLoodableScctions; secn++) {' 
if (exportNumber >= looderHdr [seen]. expFirst && 

exportNumber < loaderKdr [seen]. expFirst + loaderHdr [seen]. numExports) 
40 return seen; 

> 

return -1; 
J /* FindExportSectionNLmber O */ 
45 #endif 

#if 0 | 

int FindSymbol ( byte "name, long "seen, long "offset ) 
50 < 

j nt i ; 

int length; 

*secn = -1; 
55 "offset = -1; 

if (! name) return 0; 

length = strlen C (char*) name ); 

60 for (i = 0; i < IdHdr. numExportSyms; i++) C 

if ( (exportSymbols [i]. hashword >> 16) != length) continue; 

if ( comparebytcs ( exportSymbols [i]. nameOffset + stringTable, name, length ) ) { 
•seen = FindExportSectionNumber ( i ); 
*offset = exportSymbols [i]_ address; 
6 5 return i ; 



i 
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> 

> 

printf ("# %s: Symbol 7.s not found\n", gToolName, name); 

return -1; 
} /* FindSymbol () */ 
#endi f 

i 

long FindXCOFFIndexByMame ( byte *name, TLdSymPtr IdSyms, long symCnt } ! 

< 1 1 



10 



TLdSymPtr sym; 
long symlndex; 
15 int nameLength; 

int xnamLen; 
byte *xnam; 



20 



30 



35 



40 



nameLength = strlen ( (char «) name ); 
for (symlndex = 0; symlndex < symCnt; symlndex++) { 



sym = & IdSyms [symlndex] ; I 1 ] 

if ( I Isvalidlmport ( sym ) && ! IsValidExport ( sym ) ) continue; 
GetName ( sym, & xnam, & xnamLen ); 
2 5 if ( xnamLen == nameLength && 1 

comparebytes ( xnam, name, nameLength ) > return symlndex; 1 

> 



return -1; 
y I* FindXCOFFIndexByMame () */ 



int CheckLibOpt ( byte **namep, int *nameLengthp, TVersion *linkedVer, TVersion *oldImpVt 
TBoolean *iB ) 



int i; 

byte *libStr; 
int nl; 

•linkedVer = kDef Version; 
♦oldlmpVer = kDefVersion; 
*iB = 0; 

4 5 for <i = 0; i < libOpts; i++5 { 

libStr = liblnfo [i]; 

nl = mchlen ( libStr. (byte *) "=#-!-•■ ); 

if ( nl == "nameLengthp && comparebytes ( libStr, *namep, nl ) ) <' 
for (;;) C 

50 switch ( libStr [nl] ) C 

case '\0': break; 
case '=' : libStr += nl + 1; 

nl = mchlen ( libStr, (byte *) »=#-!-" ); 
•namep = I ibStr; 
55 *nameLengthp = nl; 

continue; 

case : *oldImpVer = "linkedVer = Getlnt ( libStr + nl + 1, & libStr, 0 ); 
nl = 0; continue; ' 

case •-' : "oldlmpVer = Getlnt ( libStr + nl + 1, & libStr, 0 ); nl = 0; 

60 continue; 

// case ')' : nl++; continue; 

case '!' : nl++; *iB j= klnitBefore; continue; 1 
case '-' : nl++; *iB |= kUeak Import; continue; 

65 break; 1 
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20 



break; 

> 

5 return 0; 

> /* CheckLibOpt () */ 

int ProcessExportList ( void ) 
10 f 

int err; 

byte *buf, *ptr, *end; 
long len; 
long index; 

15 

err = OpenRead < expFileName, & buf, & len ); 
if (err) return err; 

end = buf ♦ len; 

for C ptr = buf; ptr < end; ) { 

if <*ptr++ == '\n') addExpCnt**; 

> 

25 addExpAry = (AddExpType *) Halloc ( addExpCnt * sizeof (AddExpType) ); 

if (! addExpAry) < 

printf ("# Xs: Could not allocate JCd bytes\n", gToolName, addExpCnt * sizeof 
(AddExpType)); 

return -1; 

30 > ^ 

index = 0; 

for ( ptr = buf; ptr < end; ) { 
' while (ptr < end && (*ptr =='»;] * p tr == '\t')) ptr**; 
35 if ( *ptr == '3' ) C 

ptr+*; 

if ( ptr >= end ) goto ExpErr; 

// format aoidname newname 
addExpAry [index], format = kEqui valence; 
! 4 0 addExpAry [index], oldnamc = ptr; 

whi le (ptr < end && 

(*ptr !=''&& *ptr != '\t' && *ptr ! = '\r' && *ptr != '\n')) ptr++; 
if : (ptr >= end) goto ExpErr; 
I :*ptr*+ =0; 

! 45 > ! ;- 

! else { I ' 

! addExpAry [index], format = kAbsolute; j 

| // format sec#:offset class newname 

, addExpAry [index], seen = Getlnt ( ptr, & ptr, end ); 

j 50 if (*ptr+* != ':' || ptr > end) goto ExpErr; 

! addExpAry [index], offset = Getlnt ( ptr, & ptr, end ); 

| while (ptr < end && (*ptr == ' * j| *ptr == '\t')) ptr**; 
! if (ptr >= end) goto ExpErr; 

| I addExpAry [index], class = Getlnt ( ptr, & ptr, end); 

I 55 : >: ! 1 * 

while (ptr < end && (*ptr == ' ' j j *ptr == '\t')) ptr*+; 

j if (ptr >= end) Igoto ExpErr; 

■ addExpAry [index] . name = ptr; 

1 while (ptr < end && *ptr != '.\r' && *ptr != '\n') ptr**; 
60 if (ptr >= end) goto ExpErr; 1 

*ptr++ = 0; 
index**; 

65 //-- don't unmap, its in use! ReleaseFile ( buf, len ); 
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return 0; 

1 i 
ExpErr : 

printf ("# %s: enror in export list, lineXd\n", gToolName, index-1>; 
5 return -1; 

} /* ProcessExportLi st () V 

int CheckXCOFF ( byte *theContainer ) 

10 ( i , 

TFileHdrPtr fileHdrPtr = (TFi leHdrPtr)theContamer;| i 

TAuxHdrPtr auxHdrPtr = (TAuxHdrPtDCf i leHdrPtr + 1); 

/* Verify that the container is valid XCOFF. The "file" header' must have */ 
]_5 /* the right magic number, the right size for the auxiliary header; and */ 

/* executable and dynamic load flags must be set. The auxiliary header */ 
/* must have the right version number and non-zero section numbers for */ 
/* the .text, .data, .bss, and .loBder sections. I 
*/ 

20 /* v 

if (f i leHdrPtr->fhMagic != AIXPowerPCMagic \\ t 
f i leHdrPtr->fhOptHdr != sizeof (TAuxHdr) jj 
I IsExee(*fi leHdrPtr) Jj 
25 ! IsDynLoad(*f i leHdrPtr) ) return badUnitErr; 

/..*.*•.***»*•**********»»****•«*♦**»****•********»«»»*"'"••'************ 

if (auxHdrPtr->ahVstamp != kXCOFFversi on Jj 
auxHdrPtr->ahSnText == 0 J j 

3 0 auxHdrPtr->ahSnData == 0 j j 

auxHdrPtr->ahSnBSS == 0 j J 

auxHdrPtr->ahSnLoader == 0 ) return badUnitErr; 
.•*************»****************************»*****•«***«»****************/ 

35 if <auxHdrPtr->ahVStamp != kXCOFFVersion {j 

auxHdrPtr->ahSnLoader == 0 > return badUnitErr; 

return O; 

4 0 ) /* CheckXCOFF () */ 

int OpenRead ( byte *fName, byte "buffer, long *length ) 
{ 

45 short refNum; 

byte *ptr; 
long len; 
long err; 
Str255 pName; 



50 



err = MakePStr ( fName, strlen ( (char*) fName ), pName, sizeof pName ); 
if (err) return err; 



err = HOpenDF ( 0, 0, pName, fsRdPerm, & refNum ); 
55 if (err) { printf ("# Xs: Could not open input file 5te Xd\n", gToolName, fName, err); 

return -1; > 

err = GetEOF ( refNum, & len ); 

if (err) < FSClose ( refNum ); printf ("# Xs: Could not seek in %s %d\n", gToolName, 
60 fName, err); return -1; > 

ptr = (byte *) NewPtr ( len ); 

if (! ptr) { FSClose ( refNum ); printf ("# %s: Could not allocate %d bytes\n", 
gToolName, len); return -1; > 

65 
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i 

err = FSRead ( refNum, & len, ptr ); . 
if (err) { FSClose ( refNum ); printf ("# %s: Could not read %s %d\n", gloolName, fName, 
err); return -1; > , 

5 FSClose ( refNum ); 

•buffer = ptr; 
'length = len; 

1 0 return: 0; ; 

> /* OpenRead () «/ 



void movebytes < byte *s, byte *t, long length ) 
15 { I ! 

while (--length >= 0) «t++ = *s++; 
} /* movebytes () */ 



20 void clearbytes ( byte *t, long length ) 
< 

while (--length >= 0) *t++ = 0; 
} /* clearbytes () */ 

25 

int comparcbytcs < byte *s, byte *t, int length ) 
{ 

while (--length >= 0) if (*s*+ != *t+*) return 0; 
return 1; 

3 0 > /* comparebytes () */ 

byte mem [13 ; 

byte *Malloc ( long len ) 
35 < 

extern byte *malloc ( long len ); 

if (! len) return mem; 

return (byte*) (ma Hoc ( len )>; 

4 0 > /* Malloc () */ 



void Free ( byte "tofree ) 
{ 

4 5 #pragma unused(tof ree) 

extern void free ( byte * >; 

/* ha! don't free anything, 

since we are almost never doing so anyway, 

5 0 and we are mixing NewPtr with Malloc (yuk) 

if ( tofree !=, mem ) j 
free {tofree); 

*' : ! 

> /* Free !() */ i 

ss . i ; I 

long Write ( int fd, byte *buf, long len ) 

C • ' i 
int err; 

i f ( ! len) return ,0; 

6 0 err = FSWrite ( fd, & len, buf ); 

if (err) return err; 
return len; 



5 /* Write C) */ 



65 
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long Getlnt ( byte *ptr, byte **out, byte *end ) 

{ 

Boolean neg = 0; 
long value = 0; 
5 int mp = 10; 

int off; 

if (! end) end = ptr + 16; 

while (ptr < end && (*ptr == ' ' j \ *ptr == '\t')) ptr+*; 
10 if (*ptr == '-') ( neg - 1; ptr*+; ) 

if (*ptr == '0') C 
pt r*+ ; 

if (*ptr == 'x') { ptr++; mp = 16; } 
else < mp = 8; > 

15 > 

while (ptr < end && *ptr) < 

if (*ptr >= '0' && *ptr <= '9') off = '0'; 

else if (*ptr >= 'a' 8& *ptr <= 'f') off = 'a' - 10; 
20 else if (*ptr >= 'A' S& *ptr <= 'F ' ) off = 'A' - 10; 

else break; 
value *= mp; 
value += *ptr++ - off; 

> 

25 if (out) 

*out = ptr; 
return neg ? -value : value; 
} /« Getlnt () */ 

30 , 

int mchlen ( byte *str, byte *mch ) 

i < : 

int len = 0; 

byte *mptr; 

35 byte ch; 

for (;;) { 

ch = *str++; 
if (! ch) return len; 
4 0 mptr = mch; 

while (*mptr) if (*mptr++ == ch) return len; 
len++; 

; ) 

> /* mchlen () */ 



45 ; 



50 



55 



60 



int Log2 ( unsigned long aln ) 
C 

int i; 
aln--; 

for <i = 0; aln; i++) aln »= 1; 
return i ; 
> /* Log2 () */ 



OSErr HakePStr ( byte *src, int len, byte *trg, int max ) 
if (len >= max) return ioErr; 



movebytes ( sre, trg+1, len >; 
*trg = (byte) len; 



return noErr; 
65 5 /* MakePStr () */ 
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10 



50 



/* UM1X -> MAC date convert. Runs on UNIX only */ 
#include <time.h> 
long MaeTimeOong unixTime) 
static time_t convert = 0; 
if < unixTime == 0 ) return 0; 



if ( ! convert) 
( 

15 time_t gmt = time(0); 

struct tm local = *localtime(&gmt); 

convert = mktimo(&local ) - mkt imetgmt imet&gmt )); 
if C local .tm_i sdst) 
20 convert ♦= 60 * 60; 

convert ♦= 0x7c25b080; /* magic number for 1/1/70 in mac time */ 
> 

25 return unixTime + convert; 

> 



3 0 void convertString2Long (byte* theString, unsigned long* theLong) 

C i ■ 

•theLong! = <( longX theString [01 « 24) ♦ ( long)(theString[1] « 16) + (long)(theString[2] 

« 8) + ( long)theString[3] ); 

> i 
35 i 

#if MAC ! 

long GetFileTime < byte *fileName ) 

C ! i ' 

40 CInfoPBRec pb; I 

OSErr err; . i 

Str255 pName; 

i 

err = MakePStr < fileName, strlen ( (char*) fileName ), pName, sizeof pName ); 
45 if (err) return 0; 

clearbytes ( (byte *) & pb, sizeof pb ); 

pb. hFilelnfo. ioMamePtr = pName; 



err = PBGetCatlnfo ( & pb, FALSE ); 
if ( err ) return 0; 



return pb. hFilelnfo. ioFlMdDat; 
55 > /* GetFileTime C ) */ 

#endif 



60 



65 



int CountCompareBytes ( register byte *s, register byte *t, register int length ) 
< 

int fullLength = length; 
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while (--length >= 0) if ("s++ != *t+-0 return ful llength- length- 1 ; 
return fullLength; 
) I* CountCompareBytes (> */ 

5 

long CountZeroBytes ( byte *src, long length ) 
( 

long cnt = 0; 
while < --length >= 0 ) C 
10 if ( *src++ == 0 ) cnt++; 

> 

return cnt; 

> /* CountZeroBytes () */ , 



15 



45 



#define kMaxForwardMatch 12 



typedef struct f 

long opcode; 

20 long match Len; 

long diffCnt; 

long rptCnt; 

long backup; 

25 byte *ptr; 

byte *end; 

long coverage; 

long cost; 

3 0 long overhead; 

long gain; 
> Packlnstr, *PackInstrPtr; 



3 5 byte *gBlockStart; 
/* 



RBLK rptCnt, matchent, diffCnt 

RBLK rptCnt=1, matchCnt=0, diffCnt=x ==> BLK x 

4 0 RBLK rptCnt=x. natchCnt=y, diffcnt=0 ==> RPT y,x 

*/ 



byte *targetBuf. *targetEnd; 



OSErr EmitBytes ( byte 'pointer, long count ) 
{ 

register long cnt = count; 
50 register byte *ptr = pointer; 

int Ip = 0; 

if ( cnt <= 0 ) return noErr; 
55 if ( targetBuf + cnt >= targetEnd ) return -1; 

while C --cnt >= 0 ) { 
*targetBuf+* = *ptr++; 

} 

60 

#if DEBUG 

ptr = pointer; 
cnt = count; 
printf (» "); 
65 while ( --cnt >= 0 ) { 
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i 

print* (" %02x", *ptr++); 
if (| ++lp == 15 } < 
, printf ("\n"); 

printf <" , "); 
Ip = 0; 
> ■ 
) : 
printf ("\n"); 

if ( debug ) f flush ( stdout ); 
#endif '. 

return noErr; 
> /* EmitBytes O */ 



Packlnstr buflnst; 
Packlnstr newlnst; 



OSErr EmitCount ( long count ) 

C 

if ( count < 0 J return noErr; 

if ( targotBuf >= targetEnd-5 ) return -1; 

if { count <= 127 ) < 
*targetBuf++ = count; 

> 

else if ( count <= C127«7) + 127 ) < 
*targetBuf*+ = (count » 7) | 0x80; 
*targetBuf++ = count & 0x7f; 

> 

else if ( count <= <(127<<7>*127«7) + 127 ) c 
*targetBuf++ = (count >> K ) [ 0x80; 
*targetBuf++ = (count » 7) | 0x80; 
*targetBuf++ = count & 0x7f; 

> 

else if ( count <= (((127«7)+127«7)+127«7) + 127 ) { 
~targetBuf++ = (count » 21 ).] 0x80; 
*targetBuf++ = (count » 14 > | 0x80; 
*targetBuf++ = (count » 7) | 0x80; 
*targetBuf++ = count & 0x7f; 

else < 

*targetBuf*+ = (count >> 28 ) J 0x80; 

, "targetBuf++ = (count » 21 ) j 0x80; 

: *target8uf*+ = (count » U ) J 0x80; 

*targetBuf++ = (count >> 7) J 0x80; 

*targetBuf++ = count & 0x7f; 

return noErr; 
> /* EmitCount () */ 



OSErr EmitOpcode ( byte op, long count ) 
{ 

if ( count <= 0 ) return noErr; 

j 

if ( targetBuf >= targetEnd ) return -1; 

if ( count <= kFirstOperandMask ) < 

*targetBuf++ = (op « kOpcodeShi f t) + count; 
return noErr; 

> 
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♦targetBuf ++ = (op « kOpcodeSh i f t ) ; 
return EmitCount < count ),- 
) /* EmitOpcode O */, 



10 



15 



20 



30 



35 



40 



45 



50 



55 



60 
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OSErr EmitOnelnst ( byte ch. PacklnstrPtr ibp ) 
{ 

tfprogma unused(ch) 
long cnt; 
byte *ptr; 
OSErr err; 

i f ( ibp -> opcode == kNoOpcode ) return noErr; 

#if DEBUG 

printf (" , /'.c , /'.04lx-5'.04U", 
ch, 

ibp -> ptr - gBlockStart, 

ibp -> end - gBlockStart - 1); 

#endif 

switch ( ibp -> opcode ) { 
case kZero : 

err ^ EmitOpcode ( kZero, ibp -> rptCnt ); 
if ( err ) return err; 



II 

#if DEBUG 



#endif 

case kBlock 



II 

#if DEBUG 



#endif 



case kRepeat: 



II 

#if DEBUG 



#endif 



printf ('• 2R0 #%d\n", ibp -> rptCnt ); 

printf (" ZRO HXd" . ibp -> rptCnt >; 
printf <"\tv=%d,c=%d,o=%d,g=54d\n", 

ibp -> coverage, 

ibp -> cost, 

ibp -> overhead, 

ibp -> gain ); 

break; 

err = EmitOpcode ( kBlock, ibp -> diffCnt ); 
if < err ) return err; 

printf (" BLK #54d\n", ibp -> di f f Cnt ); 

printf (" BLK #%d", ibp -> diffCnt ); 
printf ("\tv=%d.c=%d,o=%d,g=%d\n", 

ibp -> coverage, ' 

ibp -> cost, 

ibp -> overhead, 

ibp -> gain >; , 

err = EmitBytes { ibp -> ptr, ibp -> diffCnt'); 
if ( err ) return err; 

break; ] 

\ ■ < 

err = EmitOpcode ( kRepeat, ibp -> diffCnt ); 

i f C err ) return err; ' 

printf (" RPT #%d*%d\n", ibp -> matchLen, ibp -> diffCnt ); 

printf (" RPT #%d*%d". ibp -> matchLen, ibp -> diffCnt ); 
printf <»\tv=%d,c=%d,o=Xd,g=%d\!n", 

ibp -> coverage, 

ibp -> cost, 

ibp -> overhead, 

ibp -> gain >; 

err = EmitBytes ( ibp -> ptr, ibp -> matchLen ); 
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if ( err ) return err; 
break; 
case kRepeatBlock : 

iff ibp -> diffCnt == 0 ) < j 
-> i err = EmitOpcode ( kRepcat, ibp -> matchLen ); 

i iff err ) return err; 

; >, : . i 

else { 

_ n i err = EmitOpcode ( kRepeatBlock, ibp -> matchLen ); 

J - u if ( err ) return err; 

err = EmitCount ( ibp -> diffCnt }; 
I if ( err ) return err; 

■ i > 

-j. ! err = EmitCount (ibp -> rptCnt - 1 ); 

- L -' I if ( err ) return err; 

r^tCnt )• Pr1ntf C " RBLK * (%d < Zd) * %d \ n ". ib P ■> matchLen, ibp -> diffCnt, ibp -> 

#if DEBUG j 

on I P Hntf <" RBLK #C2d,Xd)*%d", ibp -> matchLen, ibp -> diffCnt, ibp -> 

£• \J rptCnt ); r 

printf ("\tv=5id,c=%d,o=%d,g=%d\n", 
ibp -> coverage, 
' ibp -> cost, 

ibp -> overhead, 
2 5 i bp - > ga i n ) ; 



#endi f 



err = EmitBytes ( ibp -> ptr, ibp -> matchLen ); 
if ( err > return err; 
cnt = ibp -> rptCnt - 1; 
ptr = ibp -> ptr + ibp -> matchLen; 
whi le ( --cnt >= 0 ) { 

err = EmitBytes ( ptr, ibp -> diffCnt ); 
if ( err ) return err; 

Ptr += ibp -> matchLen + ibp -> diffCnt; 

35 } 

break; 
case kRepeatZero : 

err = EmitOpcode ( kRepeatZero, ibp -> matchLen ); 
if ( err ) return err; 
err = EmitCount ( ibp -> diffCnt ); 
if ( err > return err; 
err = EmitCount C ibp -> rptCnt - 1 ); 
if C err ) return err; 

45 rptCnt )• P, "' ntf l " RZR ° *< M - Xd >* xd ^ n ". ib P -> matchLen. ibp -> diffCnt, ibp -> 

#if DEBUG 

_ , P r,ntf <" R 2RO #<%d,Xd)*%d". ibp -> matchLen. ibp -> diffcnt. ibp -> 

rptCnt ); ' r 

,- n printf <"\tv=%d,c=%d,o=%d,g=%d\n", 

- 5t -' ibp -> coverage, 

ibp -> cost, 

ibp -> overhead, 

ibp -> gain ); 

#endif 

55 i cnt = : ibp -> rptCnt ' 1; 

' | ptr = ibp -> ptr + jibp -> matchLen; 

! while( --cnt >= 0 ) C | 
I err b EmitBytes < ptr, Ibp -> diffCnt ); 

i f ( err ' ) return err; 
ptr += ibp -> matchLen + ibp -> diffCnt; 

| i ! break ; 

j default : 

; #if DEBUG 

i printf ("??? %d\n", ibp -> opcode); 



i 
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JHendif 

break; 

} 

/" * | 

if ( ch = ) | 
gPackedSize += ibp -> overhead + ibp -> cost; 

*/ ! 

i 

ibp -> opcode = kNoOpcode; . 
#if DEBUG ! 

if ( debug > f flush ( stdout ); , ' 

#endif 

return noErr; 
J /* EmitOnelnst () */ 



20 OSErr Emit Inst ( PacklnstrPtr pi ) 
{ 

OSErr err; I 

if ( pi -> opcode == kNoOpcode ) return noErr; 
25 err = EmitOnelnst ( ' = ', pi ); 

pi -> opcode = kMoOpcode; 
return err; 
} /* Emitlnst () */ 



int Hatches ( register byte *ptr, register byte *end, PacklnstrPtr bestlnstr ) 



register long distance; 
register long matchLen; 
35 register long rptCnt; 

long bestHatchLen; 
long repeatedZeros; 
long zeroBytes; 
byte "match; 
40 byte found; 

byte tryShorter; 
byte ch; 

Packlnstr thislnstr; 

long backup; 
45 long backupCnt; 

long backupRptCnt; 

long fwd; 

long fwdCnt; 

long fucBCnt; 
50 long fudRptCnt; 

long fwdJRptCnt; 

long thisFud; 

long matchCount; 

55 clearbytes C (byte *> bestlnstr, sizeof *bestlnstr ); 

found = FALSE; 

bestHatchLen = 0; 

60 ch = *ptr; 

for C distance =1; distance <= kMaxForwardMatch; distance*-*- > { 

if C ptr + distance >= end ) break; 

if C ch 1= ptr [distanced ) continue; 

// found a potential match 
65 for C matchLen = 1; matchLen < distance; matchLen++ ) < ■ 
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if ( ptr + distance + matchLen >= end ) break; 

if < ptr [matchLen] != ptr [distance ♦ matchLen] ) break; 

) 

5 if (matchLen <= bestMatchLen ) continue; 

bestMatchLen = matchLen; 

Shorter: 

10 tryShorter = FALSE; 

repeatedZeros = CountZeroBytes ( ptr, matchLen ); 
// if < repeatedZeros == matchLen } then we know it is 
// a repeated zero 

15 // type of match 

thislnstr. diffCnt = distance - matchLen; 

if ( thislnstr. diffCnt == 0 && matchLen > 1 ) < 

2 0 // remember, diff count is zero 

// so, this is a repeat only 
if ( repeatedZeros == matchLen |J 
matchLen >= 5 && 

5 * repeatedZeros >= 3 * matchLen ) 
25 continue; 
> 

thislnstr. backup = 0; 
backup = 0; 

3 0 backupCnt = 0; 

backupRptCnt = 0; 
fwd = 0; 
fwdCnt = 0; 
fwdRptCnt = 0; 
35 fwcBCnt = 0; 

fwdSRptCnt = 0; 

match = ptr; 
zeroBytes = 0; 

4 0 . for (I rptCnt = 1; ; rptCnt++ ) { 

! match += distance; 

| if| ( match ♦ matchLen >= end ) break; 



45 



50 



i 

matchCount = CountCompareBytes ( ptr, match, matchLen >; 

i ' ■ , 

if! ( matchCount < matchLen ) { 

j if ( matchCount ) tryShorter = TRUE; 
[ break; 

> I 



//! match of at least one <ie: rpt of 2) 
//j now, see if it is practical to go backward 
// to extend the match 
//! or should this be an on going thing 
55 if | ( backup == 0 ) { i ' 

I backupRptCnt = rptCnt; 
; while ( backup < thislnstr. diffCnt && 
| buflnst. opcode == kZero && 

backup < buflnst. rptCnt && 
6 0 ptr [-backup- 1] == match [-backup-1] ) < 

backup++; 

: > 

> 

// count backup byte compares 
65 else if ( comparebytes < ptr-backup, match-backup, backup ) ) { 
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backupCnt**; 

> 

else { i 
// we couldn't continue the backup. , 
5 //j S u worth stopping the match just to allow the backup? 

// or, deleting the back up? j 
if < backupCnt > 3 ) < , 
. // it was worth it: 

// so, either use the backup , j j 

10 //or stop this repeat short of it , { 

if ( backupRptCnt != 1 ) » . *; 

rptCnt = backupRptCnt - 1; /* ! to try to catch the backup next time! */ 

break; ' ' 

> 

15 backup =0; , 

backupCnt = 0; 
backupRptCnt = 0; 

i 

20 ( thislnstr. diffCnt ) { 

i 

// count forward compares 

thisFwd = CountCompareBytes < match - thislnstr. diffCnt, match * matchLen, 

thislnstr. diffCnt ); 
25 if < fwd == 0 ) < 

if ( thisFwd ) < i 
fwd = thisFwd; 
fwdCnt = 1; 
fwdRptCnt = rptCnt-1; 

30 > 



35 



else if ( thisFwd ) { 

// some match larger than the current instruction 

fwdCnt**; 



else < 

// extra match count no longer present 
if ( fwdCnt >= matchLen + 3 > { 
// this match cnt is noteworthy: 
40 // record repeat count of this match 

// to stop at, so that a resart can 
// catch this new longer match 
if ( fwcBCnt == 0 ) fwd3RptCnt = fwdRptCnt; 
if ( +*fwd3Cnt >= 2 > < 
45 fwd = 0; 

rptCnt = fwd3RptCnt; 
break; 

> 

5 0 fwd = 0; 

fwdCnt =0; 
fwdRptCnt = 0; 

> ! 
55 zeroBytes += CountZeroBytes ( match - thislnstr. diffCnt /* matchLen */, 

thislnstr. diffCnt ); 

if ( repeatedZeros == matchLen ) { 

if ( zeroBytes == thislnstr. diffCnt |J 

3 * zeroBytes >= thislnstr. diffCnt * rptCnt ) break; 

60 > ! i : 

, else { 

#if trim „ ,i 

if ( 5 * zeroBytes >= 3 * thislnstr. diffCnt * rptCnt ) break; 

#endi f ' 
65 > 
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if ( fwd SS fwdCnt > 3 ) < 

// stopped in the middle of a match 
// that had an extended match 
rptCnt = fwdRptCnt; 

J 

if ( rptCnt < 2 ) continue; 

if ( rptCnt == 2 && matchLen == 1 && thislnstr. diffent == 1 ) continue; 

// trim last repeat off of a RZRO if its diffpart is all zeros 
// ?? if ( repeatedZeros == ) 



// match a dist, mien, for rptCnt 

// did we stop uith a good backup? 
if ( backup && backupRptCnt == 1 ) 
20 thislnstr. backup = backup; 



// determine 1) coverage 

// 2) cost 

// 3) overhead 



thislnstr. coverage = distance * (rptCnt - 1) + matchLen- 
thislnstr. ptr = ptr; ' 

thislnstr. end = ptr * thislnstr. coverage; 

J U if ( thislnstr. backup ) { 

matchLen += thislnstr. backup; 
thislnstr. diffent -= thislnstr. backup; 
thislnstr. ptr -= thislnstr. backup; 
thislnstr. coverage *= thislnstr. backup; 
J => repeatedZeros *= CountZeroBytes ( thislnstr. ptr, thislnstr. backup ); 

if ( repeatedZeros == matchLen ) { 
if ( thislnstr. diffCnt == 0 ) ( 
0 thislnstr. opcode = kZero; 

thislnstr. cost = 0- 

> 

else { 

thislnstr. opcode = kRcpeatZero; 
' 4t> thislnstr. cost = (rptCnt - 1) * thislnstr. diffCnt; 

> 

else < 

cr n : ^isjnstr. cost = matchLen + (rptCnt - 1) * thislnstr. diffCnt- 

ou thislnstr. opcode a kRepcotBlock; 

thislnstr. overhead = (matchLen != 0) + (thislnstr. diffCnt != 0) + 1; 

! _ if , ( thislnstr. cost == 0 ) 

, jthislnstr. gain = thislnstr. coverage * ( 78 - thislnstr. overhead )• 
else I ' 

this.nstr^'overhead f^" = ( th , is,nstr - COver{ * e * ™° > / < thislnstr. cost ♦ 

I ' , 

° 0 // thislnstr. gain -= thislnstr. overhead- 

//thislnstr. gain = thislnstr. coverage - thislnstr. cost - thislnstr. overhead; 

//done later : 
cc - // if ( thislnstr. gain < 122 ) continue; 

0 3 I 
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// these next 5 are reatly part of the if 
// but hear because they are useful for 
// the debugging in the else part 
thislnstr. matchLen = matchLen; 
thislnstr. rptCnt = rptCnt; 

if C thislnstr. gain >= 104 && 

( ! found [J thislnstr. gain > bestlnstr -> gain ) ) < 
found = TRUE; 



*bestlnstr = thislnstr; 
if ( thislnstr. diffCnt == 0 && 

thislnstr. coverage >= kMaxForwardMatch > break; 

#if DEBUG 
15 if < debug ) 

EmitOnelnst ( '+', & thislnstr ); 

#end1 1 

3 

else < 
2 0 #if DEBUG 

i f ( debug ) 

EmitOnelnst ( » thislnstr ); 

tfendif 

) 



if < tryShorter ) < 

matchLen = matchCount; 
goto Shorter; 



return found; 
> /* Hatches {) */ 



OSErr PackData ( register byte *ptr, register byte *end, byte "target, byte **tend ) 
{ 

OSErr err; 

targetBuf = target; 
targetEnd = *tend; 

gBlockStart = ptr; 

buflnst. opcode = kNoOpcode; t 
but Inst, end « 0; 



whi le ( ptr < end ) < 
50 if ( Matches ( ptr, end, & newlnst ) ) < 

if ( newlnst. backup ) { 

buflnst. rptCnt -= newlnst. backup; 
if ( buflnst. rptCnt == 0 ) 
55 buflnst. opcode = kNoOpcode; 

if ( ptr >= buflnst. end ) < 
err = Emitlnst ( & buflnst >; 
60 if ( err > return err; 

} 

buflnst = newlnst ; 

// for now, advance 
65 ptr = newlnst. end; 
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> 

else ( 

if ( buflnst. opcode == kBlock ) ( 
buflnst. diffCnt**; 
buflnst. end++; 
buflnst. cost**; 
buflnst. coverage**; 
// buflnst. gain**; 

> 

else { 

err = Emitlnst ( & buflnst ); 
if < err ) return err; 

clearbytes ( (byte *) & buflnst, sizeof buflnst ); 
buflnst. opcode = kBlock; 

■ i; 
- 1; 

= ptr; 
= Ptf+1; 
= 1: 



| buflnst. diffcnt 
jbuflnat. rptCnt 
i buflnst. ptr 
! buflnst. end 
; buflnst. coverage 
■buflnst. cost 
| buflnst. overhead 
Ibuflnst. gain 
> i 

> 

ptr++; 

> 

Emitlnst ( & buflnst ); 

•tend = targetBuf; 

return noErr; 
) /* PackData O */ 



= 1 
= 1 
= 100 - 1; 



40 



pascal void BlockClear ( void »s, long I ) 

clearbytes C Cbyte *) s, (long) I ); 
) /* BlockClear () */ 



45 long GetCount ( register byte "ptr, byte **nxt ) 

register long value = "ptr++; 
register byte nextB; 

5 0 if ( value & 0x80 ) { 

nextB = *ptr»*; 
voluo * (value & 0x7f) « 7; 
if ( nextB & 0x80 } { 
value += nextB & 0x7f; 

5 5 nextB = *ptr*+; 

value «= 7; 

if ( nextB & 0x80 ) { 

value += nextB & 0x7f; 

nextB = *ptr++; 

6 0 value 7; 

if ( nextB & 0x80 > { 
value += nextB & 0x7f; 
nextB = *ptr*+; 
: value «= 7; 
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value ♦= nextB; 

) 

*nxt = ptr; 
return value; 
} /* GetCount C) */ 

OSErr UnpackData ( register byte *ptr, register byte -end, register byte *trg. byte -tend ) 
t 

byte *startPtr = ptr; 
register byte u1 ; 

register long cnt; t 

register long entX; 

register long rep; 

register long dif; 

register long offset; 

byte *nxt; 

#if DEBUG 

printf ("ptr = %x,m end = %x\n", ptr, end >; 
#endif 

while ( ptr < end ) < 

if ( urrJcFirstOperandMask ) cnt = ul & kFi rstOperandMask; 
else < 

cnt = GetCount < ptr, & nxt ); 

//"we "now the count is larger than kFirstOperandMask (about 31) 
switch ( u1 >> kOpcodeShift ) { 



cose kZero 



#if DEBUG 
tfendif 



case kBlock 



#if DEBUG 
#endif 



printf C " ZROx %3d\n", cnt ); 

if ( trg+cnt > tend ) return -1; 
BlockClear ( trg. cnt ); 
trg += cnt; 
continue; 

printf ( " BLKx X3d\n", cnt ); 

if ( trg+cnt > tend ) return -1; 
BlockMove C ptr, trg, cnt ); 
ptr *= cnt; 
trg += cnt; 
continue; 



switch ( u1 » kOpcodeShift ) C 
55 default : 

kOpcodeShift ); 



printf ( "# %s: Unknown opcode 5Cd\n", gToolName, u1 » 
goto EB0T; 



60 



65 



case kZero 
#if DEBUG 

#endif 



printf ( " ZR0 %3d\n", cnt ); 

if ( trg+cnt > tend ) goto EBOT; 
while ( --cnt >= 0 ) { *trg++ = 0; > 
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icosc Id) lock 
#if DEBUG | 

#endif 



case kRepeat 



#if DEBUG 
#endif 



cose kRepcotZero 



#if DEBUG 
#endi f 



LI 



printf C " BLK %3d\n", cnt ); 

if ( trg+cnt > tend ) goto EBOT; 

while ( --cnt >= 0 ) < *trg++ = *ptr++; } 

break; 



rep = GetCount ( ptr, & nxt ) + 1; 
ptr = nxt; 

printf ( >> RPT %3d,%3d\n», cnt, rep >; 

if ( cnt == 1 ) { 

// repeat one byte over and over, 

// common enough to test for and optimize 

u1 = *ptr++; 

if ( trg+rep > tend ) goto EBOT; 
uhi le ( --rep >= 0 ) < 
*trg*+ = u1; 

) 

break; 

) 

whi le C --rep >= 0 ) C 
ptr = nxt; 
cntX = cnt; 

if C trg+cntx > tend ) goto EBOT; 
uhile ( --cntX >= 0 ) { 
*trg++ = *ptr++; 

J 

D 

break; 



dif = GetCount ( ptr, & nxt ); 
ptr = nxt; 

rep = GetCount ( ptr, & nxt ); 
ptr = nxt; 

printf C " RPTZ %3d,%3d,%3d\n", cnt, dif, rep+1 ); 

// MOTE: rep counts the # of dif parts 
// which equals the repeated parts - 1 
// so, we don't rep--; 

offset = 0; 

// do repeated part first 
goto L1; 

while ( --rep >= 0 ) C 
// do diff part 
ptr +— offset; 
cntx = dif; 

if ( trg+cntX > tend } goto EBOT; 
whi le ( --cntX >= 0 ) ( 
»trg++ = *ptr++; 

> 

offset += dif; 

i 

// do repeated part 
ptr = nxt; 
cntX = cnt; 



1 
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if ( trg+cntX > tend ) goto EBOT; 
while ( --cntx >= 0 ) { 
*trg++ = 0; 

) 

5 5 ■ • 

ptr ♦= offset; 
break; 

case kRepeatBlock : dif = GetCount ( ptr, & nxt ); 

10 P tr = nxt ; 

rep = GetCount ( ptr, & nxt ); 

ptr = nxt; 



#if DEBUG 
15 #endif 



55 



printf C " RPTB %3d,%3d,%3d\n", cnt, dif, rep+1 ); 

// NOTE: rep counts the # of dif parts 
// which equals the repeated parts - 1 
// so, we don't rep--; 



2 0 offset = 0; 

//do repeated part first 
goto L2; 

vihi le ( --rep >= 0 ) { 

2 5 //do d) ft port 

ptr *= offset; 
cntx = dif; 

if < trg*cntX > tend ) goto EBOT; 
while C --cntx >= 0 ) { 

3 0 "trg++ = *ptr+»; 

) 

offset += dif; 

L2 ; // do repeated part 

3 5 ptr = nxt; 

cntX = cnt; 

if ( trg+cntX > tend ) goto EBOT; 
while C —cntx >= 0 ) C 
*trg*+ = *ptr++; 

40 > 

> 

ptr += offset; 
break; 

45 > 
J 

return noErr; 
50 EBOT : 

printf ( "« ?is: unpack Error 3 JCd\n", gToolName, --ptr - startPtr ); 
return -1; 

> /* unpackData O */ i 



byto *l , orttnlMnmn ( byto *nomc ) 
C 

byte *end; 



60 for ( end = name + strlen ( (char *) name ); 

end > name; 
end-- ) { 



65 



if ( end [-1] == ' : ' !! end [-13 == '/' ) break; 
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return end; 

/* Partial Name () */ 
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CLAIMS 

1. A method for loading a relocatable file into a 
computer system memory for execution, said file having 
a plurality of information items to be loaded into said 
memory, certain ones of said information items 1 having a 
respective first address field containing a relocatable 
address, said file further having a plurality of 
relocation instructions, comprising the steps of: 

retrieving one of said relocation instructions; and 
updating the address field of n consecutive ones of 
said; information items in response to' said one of said 
relocation instructions, n being specified in 1 said one 
of said relocation instructions. i 



2. A method according 



i 



to claim 1 ll, \ ifiirther 



comprising the step of repeating | said step's of 
retrieving and updating for different ones 1 of said 
plurality of relocation instructions. 

3. A method according to claim 2, wherein said 
relocation instructions are of different types, said 
step. of updating comprising steps which depend upon the 
type of each respective one of said • relocation 
instructions. 

4 . A method according to claim 2 , wherein each of 
said relocation instructions is located at a respective 
address, wherein the address of said relocation 
instruction is determined from a first pointer (reloc) 
for each repetition of said step of retrieving, further 
comprising, in conjunction with each repetition of said 
step of retrieving, the step of updating said first 
pointer (reloc) to a value dependent upon the length of 
said retrieved relocation instruction. 

5. A method according to claim 4, wherein said step 
of updating said first pointer (reloc) comprises the 
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step of updating said, first pointer (reloc) to point to 
the one of said relocation instructions which 
immediately follows said retrieved relocation 
instruction . 

6. A method according to claim 4, wherein said step 
of updating said first pointer (reloc) comprises the 
step of adding to said first pointer (reloc) the number 
of bytes in said retrieved relocation instruction. 

7. A method according to claim 2, wherein the 
address in said memory of the first of said n 
consecutive information items is determined from a 
second pointer (rAddr) for each repetition of said step 
of updating, further comprising, in conjunction with 
each repetition of said step of updating, the step of 
updating said second pointer (rAddr) to a value 
dependent upon n. 1 

8. A method according to claim 7, wherein said step 
of updating said second pointer (rAddr) comprises the 
step of updating said second pointer (rAddr) to; point to 
the, first address in ;said memory which follows said: n 
consecutive information items. 

9. ! A method according to claim 7 , wherein said step 
of updating, said second pointer (rAddr) comprises the 
step ,of; adding to said second pointer (rAddr) , n times 
a predetermined number of bytes per information item. 

10. .A method according to claim 1, wherein said step 
of updating the first address field comprises the step 
of updating the first address field of each given 
information item in said n consecutive information items 
to a value which depends upon a respective given element 
of a table (imports) . 
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11. A method according to claim 10, wherein said 
step of updating the first address field of 1 each given 
information item comprises the steps of : ■ ; 

updating the first address field of an i'th one of 
said . n consecutive information items to a value which 
depends upon an i'th element of said table, i being 
determined from a count value (rSyml) ; 

incrementing said count value (rSyml) in conjunction 
with each repetition of said step of updating the first 
address field of an i'th one of said n consecutive 
information items; and 

repeating, for each of said n consecutive . information 
items, said step of updating the first address field of 
an i'th one of said n consecutive information items and 
said step of incrementing said count value (rSyml) . 

12. A method according to claim 11, wherein said 
step of updating the first address field of an i'th one 
of said n consecutive information items comprises the 
step of adding the contents of said i'th element of said 
table to said first address field of said i'th one of 
said n consecutive information items. 

13. A method according to claim 1, wherein said 
step of updating the first address field comprises the 
step of updating the first address field of each given 
information item in said n consecutive information items 
to a value which depends upon . a third pointer (codeA, 
dataA) , the value in said third pointer (codeA, dataA) 
remaining constant for said entire step of updating the 
first address field of n consecutive ones of said 
information items. 1 

14 . A method according to claim 13 , wherein said 
step of updating the first address fields of each given 
information item comprises the step of adding the 
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contents of said third pointer (codeA, dataA) to said 
first address field of said given information item. 

15. A method according to claim 13, further 
comprising the step 1 of selecting said third pointer 
(codeA, dataA) in dependence upon said relocation 
instruction (e.g. CODE, DATA). 

16. A method for loading a relocatable file into a 
computer system memory for execution, said file having 
a plurality of information items to be loaded into said 
memory, certain ones of said information items having a 
respective first address field containing a relocatable 
address, said file further having a plurality of 
relocation instructions, said relocation instructions 
being of different types, comprising the steps of: 

retrieving one of said relocation instructions from 
a location dependent upon a first pointer (reloc); 

updating said first pointer (reloc) in conjunction 
with each repetition of said step of retrieving ; 

performing, if said retrieved relocation instruction 
is in ja first class of relocation instructions (e.g. 
DDAT, CODE, DATA, DESC, DSC2 , VTBL, SYMR, SYMB , SECN, 
LSECN) ; a relocation operation on at least one of said 
information items, the first of said at least one of 
said i information items being designated by a second 
pointer (rAddr) , said relocation operation including 
steps which depend upon the type of said retrieved 
relocation instruction; 

updating said second pointer (rAddr) in conjunction 
with each performance of one of said relocation 
operations on said at least one of said information 
items, jand ( 
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repeating said steps of retrieving, updating said 
first pointer (reloc) , performing, and updating said 
second pointer (rAddr) . 

17. A method according to claim ; 16, wherein said 
retrieved relocation instruction is in a second class of 
relocation instructions (e.g. DDAT, CODE, DATA, DESC, 
DSC2, VTBL, SYMR) which is within said first class, and 
wherein said steps of said relocation operation comprise 
the step of updating the first address field of n 
consecutive ones of said information items, the 
beginning of said n consecutive ones of said information 
items being designated by said second pointer (rAddr) , 
n being specified in said retrieved relocation 
instruction. 

18. A method according to claim 17, wherein said 
retrieved relocation instruction is in a third class of 
relocation instructions (e.g. DDAT, CODE, DATA, DESC, 
DSC2, VTBL) which is within said second class, and 
wherein said step of updating the first address field 
comprises the step of updating the first address field 
of each given information item in said n iconsecutive 
ones of said information items to a value which depends 
upon the prior contents of such first address field and 
upon a third pointer (codeA, dataA) , the value in said 
third pointer (codeA, dataA) remaining constant for said 

entire step of updating the first address field of n 

i I 

consecutive information items. 

19. A method according to claim 17, wherein said 
retrieved relocation instruction is in a fourth class of 
instructions (e.g. DDAT) within said third class, and 
wherein said step of updating the first address field 
comprises the step of adding the contents 1 of a third 
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pointer (dataA) to said first address field of each of 
said n consecutive information items, 

further comprising the step, if said retrieved 
relocation instruction is in said fourth class of 
instructions (e.g. DDAT) , incrementing said second 
pointer (rAddr) by a value specified in said retrieved 
relpcation : instruction prior to said step of performing 
a , relocation operation. 

20.i A method according to claim 17, wherein said 
retrieved relocation instruction is in a fifth class of 
relocation instructions (e.g. CODE, DATA) within said 
. second class, said fifth class including a sixth class 
of relocation instructions (e.g. CODE) and a. seventh 
class of relocation instructions (e.g. DATA), and 
wherei^ said step of updating the first address field 
comprises the steps of: 

adding the contents of a third pointer (codeA) to 
said first address field of each of said n consecutive 
information items if said retrieved relocation 
instruction is in said sixth class of instructions (e.g. 
CODE) ; and 

adding the contents of a fourth pointer (dataA) to 
said first address field of each of said n consecutive 
information items if said retrieved relocation 
instruction is in said seventh class of instructions 
(e.g. DATA) . 

21. ; A method according to claim 17, wherein said 
retrieved relocation instruction is in an eighth class 
of instructions (e.g. VTBL) within said second class, ; 

, wherein said step of updating the first address 
field comprises the step of adding the contents of |a 
fourth pointer ! (dataA) to the first word of each i of said 
n consecutive information items, each of said n 
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consecutive information items having a length of two 
words, ' 

and wherein said step of updating said second 
pointer (rAddr) comprises the step of incrementing said 
second pointer by 2n words . 

22. A method according to claim 17, wherein said 
retrieved relocation instruction is in a ninth class of 
relocation instructions (e.g. DESC, DSC2) within said 
second class, 

wherein said step of updating the first address 
field comprises the step of adding the contents of a 
third pointer (codeA) to said first address field of 
each of said n consecutive information items, 

wherein each of said n consecutive information items 
further has a second address field, 

said steps of said relocation operation further 
comprising the step of adding the contents of a fourth 
pointer (dataA) to said second address field of each of 
said n consecutive information items. 

23. A method according to claim 17, wherein said 
retrieved relocation instruction is in a tenth class of 
instructions (e.g. SYMR) , and wherein sajid step of 
updating the first address field comprises the steps of: 

adding, to the first address field of each i'th one 
of said n consecutive information items , the contents of 
a respective i'th element of n consecutive Elements in 
a table (imports) , the beginning of said n consecutive 
elements in said table being determined from a count 
value (rSyml) ; and 

adding n to said count value (rSyml) . . 

24. A method according to claim 16, wherein said 
retrieved relocation instruction is in an eleventh class 
of relocation instructions (e.g. SYMB, SECN, LSECN) 
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within said first class, and wherein said steps of said 
relocation operation comprise the step of updating the 
first address field of the information item designated 
by said second pointer (rAddr) . 

25. A method according to claim 24, wherein said 
step of updating the first address field comprises the 
step of adding to said first address field the contents 
of: a pointer ( imports [ IDX9 ] , regions [IDX9] , 
regions [CNT22] ) specified by said retrieved relocation 
instruction. 

i i 26j. A , method according to claim 25, wherein said 
retriejved i relocation : instruction is in a twelfth class 
instructions ; (e.g. SYMB) within said eleventh class, 
wherein said pointer specified by said retrieved 
relocation instruction is given as the i'th element of 
a table (imports ),. i being specified in said retrieved 
relocation ; instruction, said method further comprising 
the step of maintaining a count value (rSyml) indicating 
the next element of said table (imports) to use, said 
steps of said relocation operation further comprising 
the step of storing i + 1 as said count value (rSyml) 
for subsequent use. 

27. A method according to claim 16, further 
comprising the step of, if said retrieved relocation 
instruction is in a thirteenth class of instructions 
(e.g. CDIS, DTIS , LCDIS, LDTIS) , updating the contents 
of said third pointer (codeA, dataA) to a value which 
depends on said retrieved relocation instruction. 

28. A method according to claim 27, wherein said 
plurality of information items is to be loaded into a 
plurality of regions of said memory, each of said 
regions containing contiguously a respective group of at 

, least one of said plurality of information items, each 
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of said regions having a respective designation and a 
respective start address, 

and wherein said step of updating the contents of 
said third pointer (codeA, dataA) comprises the step of 
storing as said third pointer (codeA, dataA) the start 
address of one of said regions whose • designation is 
specified in said retrieved relocation instruction. 

29. A method according to claim 16,: further 
comprising the step of, if said retrieved : relocation 
instruction is in a fourteenth class of instructions 
(e.g. DELTA) , adding a value to said second .pointer 
(rAddr) , which value is specified in said retrieved 
relocation instruction. 

30. A method according to claim 16, further 
comprising the step of, if said retrieved : relocation 
instruction is in a fifteenth class of instructions 
(e.g. LABS) , storing a value specified in said retrieved 
relocation instruction as said second pointer (rAddr) . 

31. A method according to claim 16, further 
comprising the step of, if said retrieved relocation 
instruction is in a sixteenth class of instructions 
(e.g. RPT, LRPT) , the step of updating the contents of 
said first pointer (reloc) to a value which depends upon 
said retrieved relocation instruction. 

32. A method according to claim 31, wherein said 
step of updating the contents of said first pointer 
(reloc) comprises the step of subtracting a value j from 
said , contents of said first , pointer (reloc) , j being 
specified in said retrieved relocation instruction. 

33. A method accordingi to claim 32, 1 further 
comprising the steps of: !• j 

maintaining a count of the number of repetitions of 
said step of subtracting; and 
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j 

inhibiting said step of subtracting af ter m of such 
repetitions, m being specified in said retrieved 
relocation instruction. 

34. A method according to claim 23, further 
comprising: the step of, if said retrieved relocation 
instruction is in an seventeenth class of instructions 
(e.g. LSYM), updating said count value (rSyml) to a 

value i which depends upon said retrieved relocation 
instruction . 

35. A method according to claim 26, further 
comprising the step of, if said retrieved relocation 
instruction is in an seventeenth class of instructions 
(e.g. LSYM), updating said count value (rSyml) to a 

value which depends upon said retrieved relocation 
instruction. 

36 . An information storage medium carrying a 
relocatable file for loading into a computer system 
memory, said file having a plurality of information 
items ; to be loaded into said memory, certain ones of 
said information items having a respective first address 
field | containing a relocatable address, said file 
further having a plurality of relocation instructions, 
including a first instruction which specifies updating 
of the first address field of n consecutive ones of said 
information items, n being specified in said first 
relocation . instruction . 

: 37;. A medium according to claim 36, wherein said 
relocation : instructions further include a second one of 
said: relocation instructions, said second relocation 
instruction specifying updating of an address field! of 
m consecutive ones of said information items, m being 
specified in said second relocation instruction. 
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,38. A medium according to claim 37, wherein said 
first and second relocation instructions are of 
respective different first and second types , and wherein 
the updating specified by relocation instructions of 
said first type is different from the updating specified 
by relocation instructions of said second type. 

39. A medium according, to claim 37, wherein said 
first and second relocation instructions have different 
byte lengths. 

40. A medium according to claim 36, wherein said 
first relocation instruction does not specify which of 
said n consecutive information items are to have an 
address field updated. 

41. A medium according to claim 36, wherein said 
updating of the first address field of said n. 
consecutive information items as specified by said first 
relocation instruction includes updating! the first 
address field of each given information item in said n 
consecutive information items to a value which depends 
upon a respective given element of a table (imports) . 

,42. A medium according to claim 41, wherein said 
updating of the first address field of 1 a given 
information item as specified by said first, relocation 
instruction includes . adding the contents 1 of said 
respective given element of said table to| said first 
address field of said given information item. 

43. A medium according to claim 36, wherein said 
updating the first address field as specified by said 
first relocation instruction includes updating the first 
address field of each given information item in said n 
consecutive information items to a value which depends 
upon a third pointer (codeA, dataA) , the value in said 
third pointer (codeA, dataA) remaining constant for said 
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entire updating of the first address field of n 
consecutive ones of said information items. 

44. A medium according to claim 43, wherein said 
updating of the first address fields of each given 
information item as specified by said first relocation 
instruction includes adding of the contents of said 
third pointer (codeA, dataA) to said first address field 
of said given information item. 

45. A medium according to claim 43, wherein said 
updating the | first address field as specified by said 
first | relocation instruction further includes a 
specification: of which of a predetermined plurality of 
pointers constitutes said third pointer. 

46. An information storage medium carrying a 
relocatable file fori loading into a computer system 
memory,; said : file having a plurality of information 
items to be loaded' into said memory, certain ones of 
said information items having a respective first address 
field icontaining a : relocatable address, said file 
further having a plurality of relocation instructions, 
said relocation instructions being of different types, 

first class of said relocation instructions (e.g. 
DDAT, CODE, DATA, DESC, DSC2, VTBL, SYMR, SYMB, SECN, 
LSECN) specifying a relocation operation on at least one 
of said information items, said at least one of said 
information items not being designated in said 
relocation instructions in said first class of 
relocation instructions, the type of said relocation 
instruction identifying the relocation operation to be 
performed on said at least one of said information 
items . , 

47.; a medium according to claim 46, wherein the 
relocation operation identified by each given relocation 
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instruction in a second class of relocation instructions 
(e.g. DDAT, CODE, DATA, DESC, DSC2 , VTBL, SYMR) which is 
within said first class, includes updating the first 
address field of n consecutive ones of said I information 
items, said n consecutive ones of said information items 
not being designated in i said given relocation 
instruction, n being specified in said given relocation 
instruction. ! 

48. A medium according to claim 47, wherein the 
updating to be performed if said given relocation 
instruction is in a. third class of: relocation 
instructions (e.g. DDAT, CODE, DATA, DESC, i DSC2 , VTBL) 
which is within said second class, includes updating the 
first address field of each given information item in 
said n consecutive ones of said information items to a, 
value which depends upon the prior contents of such 
first address field and upon a third pointer (codeA, 
dataA) , the value in said third pointer (codeA, dataA) 
remaining constant for said entire updating of the first 
address field of n consecutive information items. 

49. A medium according to claim 47, wherein the 
updating to be performed if said given relocation 
instruction is in a fourth class of instructions (e.g. 
DDAT) within said third class, includes adding of the 
contents of a third pointer (dataA) to said first 
address field of each of said n consecutive information 
items , 

said given relocation instruction further specifying 
a value by which .a second pointer (rAddr) pointing to 
said information items is to be incremented prior to 
said updating . 

50. A medium according to claim 47, wherein the 
updating to be performed includes adding the contents of 
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a third pointer (codeA) to said first address field of 
each of said n consecutive information items if said 
given relocation instruction is in a sixth class of 
relocation instructions (e.g. CODE) which is within said 
second class, and adding the contents of a fourth 
pointer (dataA) to said first address field of each of 
said n consecutive information items if said given 
relocation instruction is in a seventh class of 
instructions (e.g. DATA) which is within said second 
class . 

51. A medium according to claim 47, wherein each of 
said; n consecutive information items includes a first 
word; and a second word, wherein said updating to jbe 
performed if said given relocation instruction 1 is inan 
eighth; class of instructions (e.g. VTBL) within said 

second; class, includes adding the contents of a fourth 

i 

pointer (dataA) to the' first word of each of said n 
consecutive information items, the relocation operation 
identified by relocation instructions in said eighth 
class of instructions ; not including any updating of the 
second J word of each of said n consecutive information 
items. ; 

, . 52 J A medium according to claim 47, wherein each of 
said n j consecutive information items further includes a 
respective second address field containing a relocatable 
address, wherein the relocation operation identified by 
each given relocation instruction in a ninth class of 
relocation instructions (e.g. DESC, DSC2) within said 
second class, includes adding the contents of a third 
pointer (codeA) to said first address field of each of 
said n consecutive information items and adding the 
contents of a fourth pointer (dataA) to said second 
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address field of each of said n consecutive information 
items. 

53. A medium according to claim 47, wherein the 
updating to be performed if said given j relocation 
instruction is in a tenth class of instructions' (e.g. j 
SYMR) , includes adding, to the first address field of , 
each i'th one of said n consecutive information items, . 
the, contents of a respective i'th element of n| 
consecutive elements in a table (imports) . j 

54. A medium according to claim 46, wherein said , 
relocation operation specified by each given relocation j 
instruction which is in an eleventh class of relocation ; 
instructions (e.g. SYMB, SECN, LSECN) within said first j 
class, includes updating the. first address field of the ; 
information item designated by a second pointer (rAddr) ; 
the i contents of which are not specified in said 
relocation instruction. 

55. A medium according to claim 54, wherein said 
updating of the first address field includes adding to 
said first address field the contents of a pointer 
(imports [IDX9] , regions [IDX9] , regions [CNT22] ) specified 
by said given relocation instruction. 

56. A medium according to claim 46, wherein said 
plurality of relocation instructions further includes 
relocation instructions in a thirteenth class of 
instructions (e.g. DCIS, DTIS, LCDIS, LDTIS), each 
relocation instruction in said thirteenth class of 
instructions specifying that a third < one of a 
predetermined plurality of pointers (codeA, dataA) is to 
be updated, the type of each relocation instruction in 
said thirteenth class of instructions determining which 
of said predetermined plurality of pointers (codeA, 
dataA) is to be said third pointer. 
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57. ; A medium according to claim 56, wherein said 
plurality of information items is -to be loaded into a 
plurality of regions of said memory, each of said 
regions containing contiguously a respective group of at 
least one of said plurality of information items, each 
of said regions having a respective designation and a 
respective start address, 

and wherein the updating specified by each given 
relocation instruction in said thirteenth class of 
instructions includes storing as said third pointer 
(codeA, dataA) the start address of one of said regions 
whose designation is specified in said given relocation 
instruction. 

58. ! A medium according to claim 46, wherein said 
relocation instructions further include a fourteenth 
class of instructions (e.g. DELTA) , each relocation 
instruction in said fourteenth class of instructions 
specifying a value to be added to a second pointer 
(rAddr)i into said information items. 

59. } A medium according to claim 46, wherein said 
relocation : instructions further include a fifteenth 

■ ! I ' : : ' ', 

class of instructions (e.g. LABS), each relocation 
instruction ; in said fifteenth class of instructions 
specifying a yalue , to be stored as a second pointer 
(rAddr) into said information items. i 

j60. A medium according to claim 46, wherein said 

relocation : instructions further include a sixteenth 

i 

class of instructions (e.g. RPT, LRPT) , each instruction 
in said sixteenth class of instructions specifying a 
number of times for which an immediately preceding group 
of m of jsaid relocation instructions are to be repeated. 
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61. A medium according to claim 60, wherein each 
instruction in said sixteenth class of instructions 
further specifies m. ! ' ' 

62. An information storage medium carrying a file ' 
tor loading into a computer system memory; said file ; 
comprising: 

an input portion associating a plurality of import 
symbol names with respective import symbol numbers; and 

an export portion associating a plurality of export 
symbol names with respective export symbol location 
values, said export portion being distinct from said 

import portion. 

63. A medium according to claim 62, wherein said 
import portion comprises an import symbol table having 
an import table entry corresponding to each of said, 
import symbol names, each of said import table entries 
having a respective location in said table and 
identifying the import symbol name to which it 
corresponds, the import symbol number associated with 
each of said import symbol names being derivable from 
the location of the import table entry corresponding to 
the import symbol name in said import symbol table. 

64. A medium according to claim 63, wherein said 
file further comprises a string table containing said 
import symbol names, and wherein each of said entries in , 
said import symbol table includes an offset I into said 
string table to identify the import symbol name 'to which 
the entry corresponds . ' 1 ! 

65.. A medium according to claim 63, wherein the 
import symbol numbers for all of said import symbol 
names collectively constitute a series of consecutive 
integers . 
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66. A medium according to claim 62, wherein each of 
said export symbol location values is selected from the 
group consisting of (a) a pointer to a location in said 
file and (b) an import symbol number. 

67. ; A medium according to claim 62, wherein said 
export jportion comprises an export symbol table having 

; an jexport table entry corresponding to each, of said 
export Isymbol; names, each of said export table entries 
identifying the export symbol name to which it 

: corresponds and the export symbol location value 
associated with the export symbol name to which it 
corresponds . 

1 68. | A medium according to claim 62, wherein said 
file further comprises at least one loadable section, 
and wherein a first one of said export symbol location 
values includes a pointer to a location in a first one 
of said loadable sections. 

69. A medium according to claim 68, wherein said 
first export symbol location value further selects which 
of said at least one loadable section is said first 
loadable section. 

70. A medium according to claim 62, wherein said 
import portion comprises an import symbol table having 
an import table entry corresponding to each of said 
import symbol names, each of said import table entries 
having i a respective location in said table and 
identifying the import symbol name to which it 

| corresponds, the import symbol number associated with 

| each of , said import symbol names being derivable from 

the location of the import table entry corresponding to 
the ^.import symbol name In said import symbol 1 table, said 
'impord symbol table being distinct from said' export 
symbol table, 
i 1 i 

I 



WO 94/22078 



PCT/US94/02952 



- 133 - 

71. A medium according to claim 70, wherein said 
file further comprises -a plurality of import symbol 
strings located in an import symbol name string portion 
of said file, and a plurality of export symbol strings 
located in an export symbol name string portion of said 
file, 

wherein each of said import table entries designates 
one of said import symbol name strings to identify the 
import symbol name to which the import table entry 
corresponds , 

wherein each of said export table entries designates 
one of said export symbol name strings to identify the 
export symbol name to which the export table entry 
corresponds , J 

and wherein said import and export symbol name 
string portions of said file are distinct. 1 

72. A medium according to claim 71, wherein said 
import and export symbol name string portions are each 
distinct from said export symbol table, and wherein said 
export symbol name string portion of said file is 
located closer in said file than said import; symbol name 

i string portion of said file, : to said export symbol 

table . 1 

73 . A medium according to claim 72, wherein said 
import and export symbol name string portions are each 
distinct from said import symbol table, and wherein said 
import symbol name string portion of said file is 
located closer in said file than said export symbol name 
string portion of said file, to said import symbol 
table . 

74. A medium according to claim 67, wherein said 
export symbol table is hashed. 
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75. A medium according to claim 67, wherein said 
file further comprises an export slot table which 
associates each of said export symbol names with a" 
predetermined subset of said export table entries. 

76. A medium according to claim 67, wherein said 
file comprises a chain entry corresponding to each of 
said export symbol names, each of said chain entries 
containing a hashword which is a first predefined 
function of the export symbol name corresponding to the 
chain entry, said chain entries being grouped into 
slots, at least one of said slots having more than one 
chain entry, each slot corresponding to a respective one 
of ja; plurality of hash slot values, the hash slot value 
corresponding to each given slot being a second 
predefined function of each of the export symbol names 
corresponding, to a chain entry in said given slot. 

77. A medium according to claim 76, wherein said 
file further comprises an export slot table which 
associates each giveni one of said hash slot values with 
the chain entries in the slot which correspond to said 
given hash slot value. 

78. A medium according to claim 62, wherein said 
file further comprises a library portion associating a 
plurality of import library names with respective sets 
of said import symbol numbers, said library portion 
being distinct from said import portion and from said 
export portion. 

79. A medium according to claim 62, wherein said 
file has a plurality of information items to be loaded 
into said memory, certain ones of said information items 
having a respective first address field containing a 
relocatable address, said file further having a 
plurality of relocation instructions, including a first 
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instruction which specifies updating of the first 
address field of n consecutive ones of said information 
items, n being specified in said first relocation 
instruction. 

80. A medium according to claim 62, > said file 
having a plurality of information items to be loaded 
into said memory, certain ones of said information items 
having a respective first address field containing a 
relocatable address, said file further; having a 
plurality of relocation instructions, said; relocation 
instructions being of different types, a first class of 
said relocation instructions (e.g. DDAT, CODE, DATA, 
DESC, DSC2 , VTBL, SYMR, SYMB, , SECN, LSECN) specifying a 
relocation operation on at least one of said information 
items, said at least one of said information items not, 
being designated in said relocation instructions in said 
first class of relocation instructions, the type of said 
relocation instruction identifying the relocation 
operation to be performed on said at least one of said 
information items. 

81. An information storage medium carrying a file 
for loading into a computer system memory, said file 
having an export symbol table associating a plurality of 
export symbol names with respective export symbol 
location values, said export symbol table being hashed. 

82 . An information storage medium carrying a file 
for loading into a computer system memory, said file 
having an export symbol table associating a plurality of 
export symbol names with respective export symbol 
location values, and an export slot table which 
associates each of said export symbol names with a 
predetermined subset of said export table entries. 
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83. An information storage medium carrying a file 
for loading into a computer system memory, said file 
having an export symbol table associating a plurality of 
export' symbol names with respective export symbol 
location values, said file further comprising a chain 
entry corresponding to each of said export symbol names, 
each of said chain entries containing a hashword which 
is a first predefined function of the export symbol name 
corresponding to the chain entry, said chain entries 
being grouped into slots, at least one of said slots 
having more than one chain entry, each slot 
corresponding to a respective one of a plurality of hash 
slot values, the hash slot value corresponding to each 
given slot being a second predefined function of each of 
the export symbol names corresponding to a chain entry 
in said given, slot. 

84 . A medium according to claim 83 , wherein said 
file further comprises an export slot table which 
associates each given one of said hash slot values with 
the chain entries in the slot which correspond to said 
given hash slot value. 

85. ' A method for loading a relocatable file into a 
computer system memory for execution, said file having 
a plurality of information items to be loaded into said 
memory,| a first one 1 of said information items having 'an 

address field and an indication of a first import symbol 

i 

name for use in updating said address field, comprising 
the steps of : 

loading an import file into said memory, said import 
file : having a table of export symbols containing' a 
plurality of export symbol slots each having a slot 
value, each of said slots in said table of export 
symbols containing at least one association associating 
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an export symbol name to a respective location value, at 
least one of said slots in said table of . export symbols 
containing more than one such association, all of the 
export symbol names associated in each givenjone of said 
slots having the same hash slot value according to a 
predefined hash- slot -value algorithm; 1 ' ' 

determining a first hash slot value for said first 
import symbol name according to said predefined hash- 
slot-value algorithm; 

searching for a first export symbol name in a slot 
corresponding to said first hash slot value in said 
table of export symbols in said import file, which 
export symbol name matches said first import symbol 
name ; and 

updating said address field of said first, 
information item in response to the location value 
associated by said table of export symbols to said first 

export symbol name . 

86. A method according to claim 85, wherein each of 
said associations in said table of export symbols in 
said import file further associates a hashword value 
computed from the export symbol name of the association 
according to a predefined hash- word- value algorithm, 
said method further comprising the step of determining 
a first import hashword value for said first import 
symbol name according to said hash- word -value, algorithm, 
and wherein said step of searching comprises the step 
of: 

determining for successive current ones of said 
associations in said slot corresponding to said first 
hash slot value in said table of export symbols, until 
the export symbol name of said current j association 
matches said first import symbol name, first whether the 
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export! hashword value of said current association 
, matches said first import hashword value, and only if 
so, whether * the export symbol name of said current 
association matches said first import symbol name. 

, I87. A method according to claim 86, wherein said 
import file further has an export slot table associating 
each given 1 slot in said table of export symbols with the 
slot value of said ! given slot, said method further 
comprising the step of examing said export slot table to 
determine said slot corresponding to said first hash 
slot value. 

88. A method according to claim 85, wherein said 
import file further has an export slot table associating 
each given slot in said table of export symbols with the 
slot value of said given slot, said method further 
comprising the step of examing said export slot table to 
determine said slot corresponding to said first hash 
slot value. 

89. A method for constructing a relocatable file 
for loading into a computer system memory, said file 
having, a plurality of information items to be loaded 
into' said memory, certain ones of said information items 
having a respective first address field containing a 
relocatable address, comprising the steps of: : 

! identifying n consecutive ones of said certain 
information items; and 

writing to said file a first relocation instruction 
which specifies updating of the first address field of 
said 1 n! consecutive information items, n being specified 
in said first relocation instruction. 

90:. A method according to claim 89,; further 
comprising the steps of: 
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identifying m consecutive ones of said certain 
information items; and 1 

writing to said file a second relocation 1 instruction : 
which specifies updating of an address f ield : of said m | 
consecutive information items, m being specified in said : 
second relocation instruction. | ■ 

91. A method according, ito claim 90', wherein said i 
first and second relocation instructions are of 
respective different first and second: types , and wherein 
the updating specified by relocation instructions of 
said first type is different from the updating specified 
by relocation instructions of said second type. 

92. A method according to claim 90, wherein said 
first and second relocation instructions have different 
byte lengths. 

93. A method according to claim 89, wherein said 
first relocation instruction does not specify which of 
said n consecutive information items are to have an 
address field updated. 

94. A method according to claim 89, wherein said 
updating of the first address field of said n 
consecutive information items as specified by said first 
relocation instruction includes updating, the first 
address field of each given information item i in said n 
consecutive information items to a value which depends 
upon a respective given element of a table '( imports ) . 

95. A method according ito claim 94, wherein said 
updating of the first address field of! a. given j 
information item as specified by said first relocation 
instruction includes adding the contents of said 
respective given element of said table to! said first ; 
address field of said given information item.i 



BNSDCICIO: -:WO ©43207HA2 I > 



WO 94/22078 



PCT/US94/02952 



- 140 - 

96.; A method according to claim 89, wherein said 
updating the first address field as specified by said 

first relocation instruction includes updating the first 

i . . ^ .... . J 

address field 1 of each given information item in said n 

i : ! 

consecutive 1 information items to a value which depends 
upon a ! third pointer !( codeA, dataA) , the value in said 
third pointer '(codeA, dataA) remaining constant for said 

! 

entire | updating of I the first address field of n 
consecu'tive ones of said information items. 

!9i7.! A method according to claim 96, wherein said 
updating of; the first address fields of each given 
information item as specified by said first relocation 
instruction ; includes adding of the contents of said 
third pointer (codeA, dataA) to said first address field 
of said given information item. 

98. A method according to claim 96, wherein said 
updating the first address field as specified by said 
first relocation instruction further includes a 
specification of which of a predetermined plurality of 
pointers constitutes said third pointer. 

99. A method for constructing a relocatable file 
for loading into a computer system memory, said file 
having a plurality of information items to be loaded 
into said memory, certain ones of said information items 
having a respective first address field containing a 
relocatable address,, comprising the steps of: 

Identifying a first plurality of said certain 
information items; and!' 

writing to said file a plurality of relocation 
instructions, ] said relocation instructions being of 
different types, a: first class of said relocation 
instructions (e.g. DDAT, CODE, DATA, DESC, DSC2 , VTBL, 
SYMR, SYMB, SECN, LSECN) specifying a relocation 
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operation on at least one of said information items in 
said ; first plurality, said: at least one 1 of said 
information items in said first plurality' not 1 being 
designated in said relocation instructions in said first 
class of relocation instructions, the type of said 
relocation instruction identifying the relocation 
operation to be performed on said at least one of said 
information items in said first plurality. 

100. A method according to claim 99, wherein the 
relocation operation identified by each given relocation 
instruction in a second class of relocation instructions 
(e.g. DDAT, CODE. DATA, DESC, DSC2 , VTBL, SYMR) which is 
within said first class, includes updating the first 
address field of n consecutive ones of said information 
items in said first plurality, said n consecutive ones 
of said information items not being designated in said 
given relocation instruction, n being specified in said 
given relocation instruction. , 

101. A method according to claim 100, wherein the 
updating to be performed if said given relocation 

, instruction is in a third class of irelocation 
, instructions (e.g. DDAT, CODE, DATA, DESC, DSC2 , VTBL) 
which is within said second class, includes updating the 
first address field of each given information' item in 
said n consecutive ones of said information items : to a 
value which depends upon the prior contents 1 of such 
j first, address field and upon a third pointer 1 (codeA, 
j dataA) , the value in said third pointer (codeA, dataA) 
remaining constant for said entire updating of t:he first 
address field of n consecutive information items. 
. 102. A method according to claim 10 0, wherein the 

updating to be performed if said given relocation 
instruction is in a fourth class of instructions (e.g. 
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DDAT) within said third class, includes adding of the 
contents of a third pointer (dataA) to said first 
address field of each of said n consecutive information 
items , 

, said given relocation instruction further specifying 
a value by which a second pointer (rAddr) pointing; to 
said information items is to be incremented 1 prior to 
said updating. 

i 110,3 . A method according to claim 100, wherein the 
updating to be performed includes adding the contents of 
a third pointer (codeA) to said first address: field, of 
each of said n consecutive information items if said 
given 'relocation instruction is in a sixth class of 
relocation instructions (e.g. CODE) which is within said 
second class, and adding the contents of a fourth 
pointer (dataA) to said first address field of each of 
said n consecutive information items if said given 
relocation instruction is in a seventh class of 
instructions (e.g. DATA) which is within said second 
class . 

104. A method according to claim 100, wherein each 
of said n consecutive information items includes a first 
word and a second word, wherein said updating to be 
performed if said given relocation instruction is in an 
eighth class of instructions (e.g. VTBL) within said 
second class, includes adding the contents of a fourth 
pointer (dataA) to the first word of each of said n 
consecutive information items, the relocation operation 
identified by relocation instructions in said eighth 
class of instructions* not including any updating of the 

second' word of each of said n consecutive information 

■ : i 
items . j ; , , 

iii 1 i 1 
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105. A method according to claim 100, wherein each 
of said n consecutive information items further includes 
a respective second address field containing a 
relocatable address, wherein the relocation operation 
identified by each given relocation instruction in a 
ninth class of relocation instructions (e.g. DESC, DSC2) 
within said second class, includes adding the contents 
of a third pointer (codeA) to said first address field 
of each of said n consecutive information items and 
adding the contents of a fourth pointer (dataA) to said 
second address field of each of said n consecutive 
information items . 

106. A method according to claim 100, wherein the 
updating to be performed if said given i relocation 
instruction is in a tenth class of instructions (e.g. 
SYMR) , includes adding, to the first address field of 
each i'th one of said n consecutive information items, 
the contents of a respective i'th element of n 
consecutive elements in a table (imports) . 

107. A method according to claim 99, wherein said 
relocation operation specified by each given relocation 
instruction which is in an eleventh class of relocation 
instructions (e.g. SYMB, SECN, LSECN) 1 within said first 
class, includes updating the first address field of the 
information item designated by a second pointer (rAddr) 
the contents of which are not specified in said 
relocation instruction. 

108. A method according to claim 107, wherein said 
updating of the first address field includes adding to 
said first address field the contents of a pointer 
( imports [IDX9 ] , regions [IDX9] , regions [CNT22 ] ) specified 
by said given relocation instruction. 
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109. A method according to claim 99, wherein said 
plurality of relocation instructions further includes 
relocation instructions in a thirteenth class of 
instructions (e.g. DCIS , DTIS, LCDIS , LDTIS) , each 
relocation instruction in said thirteenth class of 
instructions specifying that a third one of a 
predetermined plurality of pointers (codeA, dataA) is to 
be updated, the type of each relocation instruction in 
said thirteenth class of instructions determining which 
of said predetermined plurality of pointers (codeA, 
dataA) ; is to be said third pointer. ! 

110. A method according to claim 109, wherein said 
plurality of i information items is to be loaded into a 
plurality of regions of said memory, each of said 
regions containing contiguously a respective group of at 
least one of said plurality of information items, each 
of said regions having a respective designation and a 
respective start address, 

and wherein the updating specified by each given 
relocation instruction in said thirteenth class of 
instructions includes storing as said third pointer 
(codeA; dataA) the start address of one of said regions 
whose designation is specified in said given relocation 
instruction. 

111. A method according to claim 99, wherein said 
relocation instructions further include a fourteenth 
class of instructions (e.g. DELTA), each relocation 
instruction in said fourteenth class of instructions 
specifying a value to be added to a second pointer 
(rAddr) into said information items. 

112. A method according to claim 99, wherein said 
relocation instructions further include a fifteenth 
class of instructions (e.g. LABS), each relocation 
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instruction in said fifteenth class of instructions 
specifying a value to be stored as a second pointer 
(rAddr) into said information items. 

113. A method according to claim 99, wherein said 
relocation instructions further include a sixteenth 
class of instructions (e.g. RPT, LRPT) , each instruction 
in said sixteenth class of instructions specifying a 
number of times for which an immediately preceding group 
of m of said relocation instructions are to be repeated. 

114. A method according to claim 113, wherein each 
instruction in said sixteenth class of instructions 
further specifies m. 1 

115. A method for constructing an object; code file 
. containing a plurality of exports capable : of being 

imported into an importing :file to be loaded into a 
computer system memory, each of said exports having an 
export symbol name and a respective export symbol 
location value, comprising the steps of: 

writing said exports to said object code file; and 
writing to said object code file an export symbol 
table associating said export symbol names with said 
export symbol location values, said export symbol table 
being hashed. 

116. A method for constructing an object code file 
containing a plurality of exports capable of being 
imported into an importing file to be loaded into a 
computer system memory, each of said exports having an 
export symbol name and a respective export symbol 
location value, comprising the steps of: 

writing to said object code file an export symbol 
table having a plurality of entries each associating a 
respective one of said export symbol names with its 
respective export symbol location value; and 
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jwriting to said object code file an export slot 
table which associates each of said export symbol names 
with a predetermined subset of said export table 
entries. 

117. A method for constructing an object code file 
containing a plurality of exports capable of being 
imported into an importing file to be loaded into a 
computer system memory, each of said exports having an 
export symbol name and a respective export symbol 
location value , comprising the steps of : 

writing to said object code file an export symbol 
table associating each of said export symbol names with 
its respective export symbol location value; 

writing to said object code file a chain entry 
corresponding to each of said export symbol names , each 
of ; said chain entries containing a hashword. which is a 
first predefined function of the export syipbol name 
corresponding to the 1 chain entry, said chain entries 
being grouped into slots, at least one of said slots 
having morei than j one chain entry, each slot 

i j ! 

corresponding to a respective one of a plurality of hash 
slptj values, jthe hash slot value corresponding to each 
given slot being a second predefined function of each: of 
the export symbol names corresponding to a chain entry 
in , said given slot. 

118. A method according to claim 117,! further 
comprising ithe step of writing to said object code file 
an export slot table which associates each given one of 
said hash slot values with the chain entries in the slot 
which correspond to said given hash slot value. 

119. A method for constructing a file to be loaded 
into a computer system memory, comprising the steps of: 
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t 

identifying in said file a data pattern consisting . 
of RCount3 repetitions of a first subpattern, followed ' 
by a second subpattern of length Countl bytdes, each of ; 
said repetitions of said first subpattern consisting of 
said second subpattern followed by DCount2 additional | 
bytes of data; and 

writing to said file a <data expansion instruction 
comprising Countl, DCount2 , RCount3 , said first 
subpattern, and each of said additional bytes of data. 

120. An information storage medium carrying a file 
for loading into a computer system memory, said file 
having a plurality of data expansion instructions, 
including a first instruction which specifies the 
creation of a data pattern consisting of RCount3 
repetitions of a first subpattern, followed by a second: 
subpattern of length Countl bytes, each of said, 
repetitions of said first subpattern consisting of said 
second subpattern followed by DCount2 additional bytes 
of data, said first instruction identifying Countl, 
DCount2, RCount3, said first subpattern, and each of 
said additional bytes of data. 

121. A method for loading a file into a computer 
system memory, said file having a plurality of data 
expansion instructions, comprising the steps of: 

retrieving a first one of said data expansion 
instructions; and 

creating a data pattern consisting |of RCount3 
repetitions of a first subpattern, followed by a second 
subpattern of length Countl bytes, each of said 
repetitions of said first subpattern consisting of said 
second subpattern followed by DCount2 additional bytes 
of data, said first instruction identifying Countl, 
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DCount2, RCount3, said first subpattern, and each of 
said additional bytes of data. 
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